リハビリ用

rss_parse.pl

#!perl
use strict;
use warnings;

use Furl;
use XML::RSS::LibXML;
use Encode;

my $rss_url = shift or die "Usage: $0 rss_url";
my $ua = Furl->new();

my $res = $ua->get($rss_url);
unless ($res->is_success) {
    die "Can't download $rss_url";
}

my $parser = XML::RSS::LibXML->new;
eval {
    $parser->parse($res->content);
};
if ($@) {
    die "Can't parse RSS!!";
}

my $index = 1;
for my $item ( @{ $parser->{items} } ) {
    printf "[%2d] :%s\n", $index++, Encode::encode_utf8($item->{title});
}