自分のブログをブックマークしてくれた人のはてなダイアリーのリストを返すスクリプトがあった。
しかし、リニューアル後のはてなには対応していなかったので、勝手に改造して使うことにした。
…まあ、ダイアリーやってない人も多いんだけどね。
ソースコード。
use strict;
use warnings;
use URI;
use Web::Scraper;
use List::MoreUtils qw/uniq/;
my $uri = URI->new('http://b.hatena.ne.jp/bookmarklist?url=http://weblog.nqou.net');
my $scraper = scraper {
process '//ul[@class="comment"]/li/a[1]', 'users[]' => '@href';
result 'users';
};
my $res = $scraper->scrape($uri);
print join "\n", map { s/b.hatena/d.hatena/;$_} uniq(@{$res});
コメントする