synとかdcとかtaxoとかでなく、ag:sourceとかag:sourceURLとかag:timestampとかを読み込みたかった。
XML::RSSでなら何でも良かった。今は反省している。
#!/usr/bin/perl
use Jcode;
use LWP::Simple;
use XML::RSS;
$rss = new XML::RSS;
$rss->add_module(prefix=>'ag', uri=>'http://purl.org/rss/1.0/modules/aggregation/');
$rss->parse(get("http://r.hatena.ne.jp/sample/rss"));
print "Content-type: text/html\n\n";
print "<html><body>";
foreach $item ( @{ $rss->{'items'} } ) {
print Jcode->new($item->{title}, 'utf8')->sjis;
print "@";
print Jcode->new($item->{'ag'}->{'source'}, 'utf8')->sjis;
print "<br>\n";
}
print "</body></html>";
exit;
関連URLs
If you want to automatically add modules that the parser finds in namespaces, set the $XML::RSS::AUTO_ADD variable to a true value. By default the value is false. (N.B. AUTO_ADD only updates the %{$obj->{'modules'}} hash. It does not provide the other benefits of using add_module.)
あー。俺はきっとアフォ。
