Perl RSS Reader
LWP::SimpleとXML::RSSさえCPANでインストールすれば以下のような簡単なスクリプトで取得できます。
サンプルはLastfmから最近聞いたトラックを表示させたものです。
Recently Played Tracks
#!/usr/bin/perl -w
use LWP::Simple 'get';
use XML::RSS;
$url = 'http://ws.audioscrobbler.com/1.0/user/dotsmade/recenttracks.rss';
# LWP::SimpleのgetメソッドでRDFファイルを読み込み、
$document = LWP::Simple::get($url);
# RSSオブジェクトのリファレンスを取得
my $rss = XML::RSS->new;
$rss->parse($document);
#出力
print "Content-type: text/html\n\n";
foreach my $item (@{$rss->{items}}){
print $item->{'title'} . "<br />\n";
}
Tags: perl
4 月 15th, 2008 at 12:19 PM
XML::RSSが使えなかったりした場合。無理やりですが。
@document = LWP::Simple::get($url);
foreach (@document){
push(@title, /(.*?)/g);
push(@link, /(.*?)/g);
push(@date, /(.*?)/g);
}