勝手に改造-Web::Scraperではてブスクレイピング

自分のブログをブックマークしてくれた人のはてなダイアリーのリストを返すスクリプトがあった。 Web::Scraperではてブスクレイピングしかし、リニューアル後のはてなには対応していなかったので、勝手に改造して使うことにした。まあ、ダイアリーやってない人も多いんだけどね。

ソースコード。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12


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});