RSSの取得

---

　XML::RSSモジュールを使うと簡単です。

use strict;
use warnings;
use XML::RSS;
use LWP::Simple;
use Encode;

my $rss_url = 'http://books.ivory.ne.jp/no1/rss/kizasi_rank.xml';

my $doc = get $rss_url;
my $rss = XML::RSS->new;
$rss->parse($doc);

binmode STDOUT, ':encoding(cp932)';
foreach my $item (@{$rss->{items}}) {
    printf "title: %s\n", $item->{title};
    printf "link : %s\n", $item->{link}; 
    printf "date : %s\n", $item->{dc}->{date}; 
    print "\n";
}

---

関連項目

・RSSフィードの取得
・Webページの取得