PerlでRSS取得

上のやつに、さらにXMLのライブラリをいれて、RSSリーダーにしてみよう。
要するにGETしたデータに、XMLのパーサーをかけて、
特定の要素を取り出せばいいわけで。

ppm install XML-RSS
とパッケージをインストールして、
以下を実行すれば、BBCのrssが取得できた。簡単ジャン

#!C:/perl/bin/perl
use HTTP::Lite;

use XML::RSS;
print "Content-Type: text/html\n\n";

print "\n";
my $rssurl = 'http://newsrss.bbc.co.uk/rss/newsonline_world_edition/front_page/rss.xml';
my $http = new HTTP::Lite;

$http->{'method'} = 'GET';

$req = $http->request($rssurl) or die "Unable to get document: $!";

my $content = $http->body();
my $rss = new XML::RSS;

$rss->parse($content);
for my $item (@{$rss->{'items'}}) {

  my $line = "$item->{title}";

  my $lineurl = "$item->{link}";
print <<"END"

<a href="$lineurl">$line</a>

<br>

END
}