Perl での　ＲＳＳ解析

XML::RSSだけ より LWP::UserAgent を使ったほうが確実です
use strict;
use XML::RSS;
use LWP::Simple;
my $url = ‘http://blog.livedoor.com/xml/blog_ranking_cat.rdf’;
my $dat = get($url);
foreach my $item ( @{$rss->{‘items’}} ) {
　　print $item->{‘link’};;
　　print decode(‘utf-8’,$item->{‘title’});
｝
=====================================================================
use strict;
use XML::RSS;
use XML::XPath;
use LWP::Simple;
use LWP::UserAgent;
my $url = ‘http://blog.livedoor.com/xml/blog_ranking_cat.rdf’;
my $dat = get($url);
my $rss = new XML::RSS;
my $ua = LWP::UserAgent->new;
$rss= $ua->get($url);
my $list = $rss->decoded_content();
my $parser = new XML::XPath->new(xml => $list);
my @items = $parser->findnodes(“/rdf:RDF/item”);
foreach my $item (@items){
　　echo $parser->findvalue(“link”, $item)->value();
　　echo $parser->findvalue(“title”, $item)->value();
}

Thank you for reading this post, don't forget to subscribe!