[SP-pm] Ler XML

[Ricardo Stock]

Valeu Gabriel, obrigado...



Ricardo Stock
www.stocksistemas.com.br

----- Original Message ----- 
From: "Gabriel Vieira" <gabriel.vieira em gmail.com>
To: <saopaulo-pm em mail.pm.org>
Sent: Thursday, June 06, 2013 11:52 AM
Subject: Re: [SP-pm] Ler XML


----------------8<----------------
use XML::XPath;
use XML::XPath::XMLParser;

my $xp = XML::XPath->new(ioref => *DATA);
my $nodeset = $xp->find('//foto[@imagem]');
my $node = $nodeset->get_node(0);
print $node->getAttribute('imagem');

__DATA__
<xml>
<nome>jose</nome>
<idade>50</idade>
<bla>blablabla</bla>
<foto imagem='foto.jpg'/>
</xml>
---------------->8----------------

2013/6/6 Ricardo Stock <ricardostock em bol.com.br>:
> Bom dia a todos. Estou tendo um problema ao tentar retornar o valor de uma
> tag na leitura de um xml.
>
> Veja tenhos os seguintes dados por exemplo
>
> <nome>jose</nome>
> <idade>50</idade>
> <bla>blablabla</bla>
> <foto imagem='foto.jpg'/>
>
> Minha duvida esta em como pegar o valor do atributo imagem
>
> estou utilizando  XML::XPath com use LWP::Simple
>
> $foto=$xpath->findvalue('foto/imagem',$context);
>
> porém $foto esta retornando vazio.
>
> Qual seria a sintaxe correta para retornar este atributo ?
>
> Obrigado
>
> Ricardo Stock
> www.stocksistemas.com.br
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>



-- 
Gabriel Vieira
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer