E não se esqueça:<div><br><div><b><font class="Apple-style-span" size="1"><span class="Apple-style-span" style="font-size: xx-large;">use strict;</span></font></b></div><div><b><font class="Apple-style-span" size="1"><span class="Apple-style-span" style="font-size: xx-large;">
use warnings;</span></font></b></div><div><br> </div><div><br><div><span class="gmail_quote">On 6/28/07, <b class="gmail_sendername">Gabriel Vieira</b> <<a href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@gmail.com
</a>> wrote:</span><blockquote class="gmail_quote" style="margin:0;margin-left:0.8ex;border-left:1px #ccc solid;padding-left:1ex">Opa Daniel!<br><br>Faça uso do Data::Dumper :)<br><br>------------------------------8<---------------------------
---<br>use XML::Parser;<br>use Data::Dumper;<br><br>my $parser=new XML::Parser;<br>my $p=new XML::Parser(Style => 'Tree');<br>my $xml=$p->parse('<inquiry>'<br> .'<city>2</city>'
<br> .'<region>CENTER</region>'<br> .'<childages>'<br> .'<childage>2</childage>'
<br> .'<childage>11</childage>'<br> .'</childages>'<br> .'</inquiry>');
<br><br><br>print Dumper($xml);<br>------------------------------>8------------------------------<br><br>A saída:<br>------------------------------8<------------------------------<br>$VAR1 = [<br> 'inquiry',
<br> [<br> {},<br> 'city',<br> [<br> {},<br> 0,<br> '2'<br> ],<br> 'region',<br> [<br>
{},<br> 0,<br> 'CENTER'<br> ],<br> 'childages',<br> [<br> {},<br> 'childage',<br> [<br>
{},<br> 0,<br> '2'<br> ],<br> 'childage',<br> [<br> {},<br> 0,<br> '11'
<br> ]<br> ]<br> ]<br> ];<br>------------------------------>8------------------------------<br><br>Abraços,<br><br><br>On 6/28/07, Daniel (r) Antunes <<a href="mailto:danielrantunes@yahoo.com.br">
danielrantunes@yahoo.com.br</a>> wrote:<br>><br>> Olá amigos da lista,<br>> Estou apanhando com uma bobeirinha e acredito que os amigos possam me<br>> ajudar.<br>> Já fiz parsers usando Handlers para grandes documentos e conheço bem o
<br>> funcionamento. Agora estou tentando criar um parser usando a opção "Tree",<br>> nunca tinha utilizado este método e apesar da simplicidade exposta na "man<br>> page" estou apanhando.<br>
> Segue um script que fiz para testar o funcionamento :<br>><br>> #!/usr/bin/perl<br>> use XML::Parser;<br>> my $parser=new XML::Parser;<br>> my $p=new XML::Parser(Style => 'Tree');<br>> my $xml=$p->parse('<inquiry>'
<br>> .'<city>2</city>'<br>> .'<region>CENTER</region>'<br>> .'<childages>'
<br>> .'<childage>2</childage>'<br>> .'<childage>11</childage>'<br>> .'</childages>'
<br>> .'</inquiry>');<br>> print " 1º\t",$xml,"\n\n";<br>> print " 2º\t",$$xml[0],"\n\n";<br>> print " 3º\t",$$xml[1],"\n\n";
<br>> print " 4º\t",$$xml[1][1],"\n\n";<br>> print " 5º\t",$$xml[1][2],"\n\n";<br>> print " 6º\t",$$xml[1][3],"\n\n";<br>> print " 7º\t",$$xml[1][4],"\n\n";
<br>> print " 8º\t",$$xml[1][5],"\n\n";<br>> print " 9º\t",$$xml[1][6],"\n\n";<br>><br>> O resultado no console é o seguinte :<br>><br>> 1º ARRAY(0x815a0e4)
<br>><br>> 2º inquiry<br>><br>> 3º ARRAY(0x815a180)<br>><br>> 4º city<br>><br>> 5º ARRAY(0x8220f90)<br>><br>> 6º region<br>><br>> 7º ARRAY(0x8220f30)<br>>
<br>> 8º childages<br>><br>> 9º ARRAY(0x82130f4)<br>><br>> 10º<br>><br>> 11º<br>><br>> 12º<br>><br>> Minha dúvida é : Como navegar pelos elementos. :(<br>> Muitíssimo obrigado galera.
<br>> Abraço.<br>><br>> Daniel (r) Antunes<br>> profissional de informática<br>> msn <a href="mailto:daniel.legend@terra.com.br">daniel.legend@terra.com.br</a><br>> mobile + 55 11 8965 2999<br>> gnu/linux user #238553
<br>><br>><br>> ________________________________<br>> Novo Yahoo! Cadê? - Experimente uma nova busca.<br><br>> _______________________________________________<br>> Cascavel-pm mailing list<br>> <a href="mailto:Cascavel-pm@pm.org">
Cascavel-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman">http://mail.pm.org/mailman</a>/listinfo/cascavel-pm<br>><br><br><br><br>--<br>Gabriel Vieira<br>_______________________________________________<br>Cascavel-pm mailing list
<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman">http://mail.pm.org/mailman</a>/listinfo/cascavel-pm<br></blockquote></div><br><br clear="all"><br>-- <br>Lindolfo "Lorn" Rodrigues
<br>- <a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br</a><br>- <a href="http://lornlab.org">http://lornlab.org</a><br>- <a href="http://sao-paulo.pm.org">http://sao-paulo.pm.org</a><br>use Catalyst;
</div></div>