XML::RSS::LibXML

XML::RSSの高速版。

こんな感じで使う。

use XML::RSS::LibXML;
my $rss = XML::RSS::LibXML->new;
$rss->parsefile($file);

print "channel: $rss->{channel}->{title}\n";
foreach my $item (@{ $rss->{items} }) {
print " item: $item->{title} ($item->{link})\n";
}

実際には、文字コードがあれなので、その手のモジュールがいる。

http://search.cpan.org/~dmaki/XML-RSS-LibXML-0.19/lib/XML/RSS/LibXML.pm