買っちゃった♪
blogなんて投稿してる場合じゃないな、これ。
XML::RSSでAggregationModuleをParseしたかった。
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.)
あー。俺はきっとアフォ。
ショボティーカクメイ。
週末、髪を切った。
ボケられるくらい切った。
月曜日、会社で髪についてほとんどツッコミを頂けなかった。
火曜日、会社で髪についてツッコミを沢山頂けた。
同フロアの人「髪凄いねー、別人みたいだねー。昨日切ったのー？」
昨日の自分の存在感の高さを誉めたくなった。
後で読むリスト。
タグ: Information Technology
後で読むリスト。 はコメントを受け付けていません