<div dir="ltr">Boa tarde para todos.<br><br>Não sei o que por em alguns campos do módulo.<br><br>#!/usr/bin/perl<br><br>use warnings;<br>use strict;<br>use XML::RSS::Parser;<br><br>my $p = XML::RSS::Parser->new;<br>my $feed = $p->parse_uri('<a href="http://www.movies.com/xml/intheaters.xml'">http://www.movies.com/xml/intheaters.xml'</a>);<br>
<br># output some values <br>my $feed_title = $feed->query('<b>/channel/title</b>');<br>print $feed_title->text_content;<br>my $count = $feed->item_count;<br>print " ($count)\n";<br>foreach my $i ( $feed->query('<b>//item'</b>) ) { <br>
my $node = $i->query(<b>'title</b>');<br> print ' '.$node->text_content;<br> print "\n"; <br>}<br clear="all"><br>Os que estão em negrito.<br><br>Obrigado.<br><br>-- <br>Daniel de Oliveira Mantovani<br>
"A sede pelo aprendizado é insaciável"<br><a href="http://mantovanihouse.blogspot.com/">http://mantovanihouse.blogspot.com/</a><br>------------------------------------------------------------<br>
</div>