parse-feed-original-tag.pl

#!perl
use strict;
use warnings;

use XML::Feed;

my $url         = 'http://f.hatena.ne.jp/shiba_yu36/rss';
my $open_search = "http://a9.com/-/spec/opensearchrss/1.0/";
my $hatena      = "http://www.hatena.ne.jp/info/xmlns#";

my $feed = XML::Feed->parse(URI->new($url))
    or die XML::Feed->errstr;


warn 'title : ', $feed->title;
warn 'link : ', $feed->link;
for my $entry ($feed->entries) {
    warn '======== entry ==========';
    warn $entry->title;
    warn $entry->link;
    warn $entry->summary;
    warn $entry->unwrap->{$hatena}{imageurl};
    warn '========= end ===========';
}