<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "><BR><DIV><DIV>On Apr 30, 2007, at 2:27 PM, roan Brasil wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite">Olá Galera,<BR><BR>Estou precisando de uma ajudinha. Eu tenho um padrão de desenvolvimento já usado aqui simples para coletar informações do XML usando XML Twig. Então preciso coletar essas informações nesse XML no link-> <A href="http://www.rumo.com.br/sistema/XMLProdutos.asp?IDLoja=6928&Texto=&IDProduto=&IDCategoria=&ExibeDescricao=1&origem=jacotei&est=&Mult">http://www.rumo.com.br/sistema/XMLProdutos.asp?IDLoja=6928&Texto=&IDProduto=&IDCategoria=&ExibeDescricao=1&origem=jacotei&est=&Mult </A><BR><BR>Sendo que a string resultante dessa requisição é a <SPAN style="font-weight: bold; color: rgb(255, 102, 102);">variavel $string</SPAN>;<BR>Estou usando XML::Twig da seguinte forma:<BR><BR> <SPAN style="font-weight: bold;"> my $twig = XML::Twig->new(keep_encoding => "true");</SPAN><BR style="font-weight: bold;"><SPAN style="font-weight: bold;"> $twig->parse("$string");</SPAN><BR style="font-weight: bold;"><SPAN style="font-weight: bold;"> foreach my $product ($twig->root->children('produto')) {</SPAN><BR style="font-weight: bold;"><SPAN style="font-weight: bold;"> my $sibling = $product->first_child();</SPAN><BR style="font-weight: bold;"> <SPAN style="font-weight: bold;"> my %produto;</SPAN><BR style="font-weight: bold;"><SPAN style="font-weight: bold;"> my @nodes;</SPAN><BR style="font-weight: bold;"><SPAN style="font-weight: bold;"> do { </SPAN><BR style="font-weight: bold;"><SPAN style="font-weight: bold;"> $produto{$sibling->tag()} = $sibling->child_text();</SPAN><BR style="font-weight: bold;"><SPAN style="font-weight: bold;"> } while($sibling = $sibling->next_sibling()); </SPAN><BR><BR>Só que preciso pegar o valor da tag <SPAN style="color: rgb(51, 51, 255);"><descritor nome="Peso líquido:"></SPAN><SPAN style="font-weight: bold; color: rgb(51, 51, 255);">VALOR</SPAN><SPAN style="color: rgb(51, 51, 255);"> </descritor></SPAN>.<BR>Reparando bem existe <SPAN style="font-weight: bold;">outra tag descritor</SPAN> onde o atributo nome tem valor <SPAN style="font-weight: bold;">DIMENSÕES</SPAN>. <BR>Alguém pode me ajudar a pegar esse <SPAN style="font-weight: bold; color: rgb(51, 102, 255);">VALOR</SPAN>?<BR><BR clear="all"></BLOCKQUOTE><BR></DIV><DIV>Não olhei o seu documento, o trabalho é seu e vou deixar que o faça. Aqui está um exemplo de como eu faria -da forma mais didática que eu encontrei:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>--code--</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>#!perl;</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>use strict;</DIV><DIV>use warnings;</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>use XML::Twig;</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>my $twig = XML::Twig->new( keep_encoding => 1 );</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>$twig->parse( \*DATA );</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>my @produtos = $twig->get_xpath(q{//produto});</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>for my $p (@produtos) {</DIV><DIV> if ( my ($d) = $p->get_xpath(q{descritor}) ) {</DIV><DIV> if ( $d->att('nome') eq 'Peso liquido:' ) {</DIV><DIV> print $d->string_value, $/;</DIV><DIV> }</DIV><DIV> }</DIV><DIV>}</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>__DATA__</DIV><DIV><raiz></DIV><DIV> <produto></DIV><DIV> <descritor nome="Peso liquido:">VALOR</descritor></DIV><DIV> </produto></DIV><DIV> <produto></DIV><DIV> <descritor nome="Peso liquido:">VALOR1</descritor></DIV><DIV> <descritor nome="Peso bruto:">VALOR2</descritor></DIV><DIV> </produto></DIV><DIV></raiz></DIV><DIV><BR class="khtml-block-placeholder"></DIV>--/code--<DIV><BR class="khtml-block-placeholder"></DIV><DIV>Se você estiver interessado apenas nas tags 'descritor' de nome 'nome' com valor 'Peso liquido:' podes procurar os elementos através de uma expressão xpath do tipo '//descritor[@nome="Peso liquido:"]'.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Boa sorte!</DIV><DIV><BR><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Lucida Grande; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>--</DIV><DIV>Igor Sutton</DIV><DIV><A href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</A></DIV><DIV><BR class="khtml-block-placeholder"></DIV><BR class="Apple-interchange-newline"></SPAN> </DIV><BR></DIV></BODY></HTML>