
この署名欄のわかりにくさのために、とてもとても重要な場面で間違えて記入されたというケースもあります。それが、大日本帝国がポツダム宣言を受け入れるために調印した降伏文書の中にあります上に書くか下に書くか分かりづらい問題。
#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
my @list = (
# ['総合','http://b.hatena.ne.jp/hotentry.rss'],
['世の中','http://b.hatena.ne.jp/hotentry/social.rss'],
['政治と経済','http://b.hatena.ne.jp/hotentry/economics.rss'],
['暮らし','http://b.hatena.ne.jp/hotentry/life.rss'],
['学び','http://b.hatena.ne.jp/hotentry/knowledge.rss'],
['テクノロジー','http://b.hatena.ne.jp/hotentry/it.rss'],
['エンタメ','http://b.hatena.ne.jp/hotentry/entertainment.rss'],
['アニメとゲーム','http://b.hatena.ne.jp/hotentry/game.rss'],
['おもしろ','http://b.hatena.ne.jp/hotentry/fun.rss']
);
foreach my $i (@list) {
my $cont = get($i->[1]) || "";
print "$1\n" while ($cont =~ /rdf:li rdf:resource="(.+?)"/g);
}