RSSクライアントの作成（XML::RSS）

RSSクライアントサンプル

以下に単純なRSSクライアントを示します。

#!/usr/bin/perl

use LWP::Simple;
use XML::RSS;

# ここを変更して下さい
$rssurl = 'http://www.geekpage.jp/rss.php';


$rssxml = get($rssurl);

$rss = new XML::RSS;
$rss->parse($rssxml);

# channel information

print $rss->channel("title");
print "\n";
print $rss->channel("link");
print "\n";
print $rss->channel("description");
print "\n";

# item list

$itemlist = $rss->{'items'};
foreach $item (@{$itemlist}) {
  print $item->{'title'};
  print "\n";
  print $item->{'link'};
  print "\n";
}

exit;

上記サンプルでは、LWP::Simpleのgetを使ってHTTPでRSSデータを取得しています。 取得したRSSデータはXML::RSSのparseに渡されて、解析されます。 その後、解析したデータを順次表示しています。