XML::Twig Question

mvitor has asked for the wisdom of the Perl Monks concerning the following question:

I monks, i have a problem with XML::Twig module, im parsing and reading a xml file in this way:

use XML::Twig;
my $twig = XML::Twig->new(keep_encoding => "true");
$twig->parse("$string");

foreach my $product ($twig->root->children('produto')) {
    my $sibling = $product->first_child();
    my %produto;
    do {
            $produto{$sibling->tag()} = $sibling->child_text();
    } while($sibling = $sibling->next_sibling());
    $product{nome} =~ s/\s+//g;    
    ......................
}
[download]

My xml structure is in this way:

<produtos>
     <produto>
       <codigo>I0000949</codigo>    
       <nome>Acucareiro Acril 200g Cromus Acrylic Line</nome>    
       <categoria>SALA DE JANTAR:ACESSÓRIOS PARA MESA</categoria>    
       <marca>Fabrica da Pedra</marca>    <preco></preco>    
       <link>4,99</link> 
       <imagem>http://imgproduto.casaevideo.com.br/jpg/ud-cozin/000094
+9b.jpg</imagem>
       <parcelamento>      
          <parcelas>12</parcelas>      
          <valor>0,53</valor>    
       </parcelamento>  
    </produto> 
......
</produtos>
[download]

And my problem is:
How i can read the data from tags <parcelas> and <valor> is into the tag <parcelamento> ?
Anyone as $product{parcelamento}{parcelas}, but it it dont works.
Thanks,
mvitor

ps: sorry foy my english

Comment on XML::Twig Question Select or Download Code

Replies are listed 'Best First'.

Re: XML::Twig Question
by Jenda (Abbot) on Nov 01, 2007 at 19:15 UTC

I believe what you are looking for is simplify():

my $string = <<'*END*';
<produtos>
     <produto>
       <codigo>I0000949</codigo>
       <nome>Acucareiro Acril 200g Cromus Acrylic Line</nome>
       <categoria>SALA DE JANTAR:ACESSORIOS PARA MESA</categoria>
       <marca>Fabrica da Pedra</marca>    <preco></preco>
       <link>4,99</link>
       <imagem>http://imgproduto.casaevideo.com.br/jpg/ud-cozin/000094
+9b.jpg</imagem>
       <parcelamento>
          <parcelas>12</parcelas>
          <valor>0,53</valor>
       </parcelamento>
    </produto>
</produtos>
*END*

use XML::Twig;
my $twig = XML::Twig->new(keep_encoding => "true");
$twig->parse( $string);

foreach my $product ($twig->root->children('produto')) {
    my $data = $product->simplify();
#    use Data::Dumper;
#    print Dumper($data);

    $data->{nome} =~ s/\s+//g;
    print "$data->{nome}, parselas: $data->{parcelamento}{parcelas}\n"
+;
#    ......................
}
[download]

foo( "$variable")

If you think you can't explain your problem well enough in English, do what you can and then explain it in your own language. I'm sure there are people here that can translate for you.

Jenda
Support Denmark!
Defend the free world!

[reply]
[d/l]
[select]

Re^2: XML::Twig Question

by mvitor (Beadle) on Nov 05, 2007 at 15:34 UTC

Márcio Vitor

[reply]

Re: XML::Twig Question
by Anonymous Monk on Nov 01, 2007 at 15:44 UTC

You might just want to try XML::Simple. It makes what your doing very.. simple :P And it looks like you'll need to make something recursive to navigate to children of children in your example. Of if you have a limited depth of XMLNS you could hardcode children of parcelamento.

[reply]