Web::Scraperではてブスクレイピング

perl

自分のブログをブックマークしたひとのはてダをLDRで購読する事が多いので、scrapeしてURLを表示させてみる

use URI;
use Web::Scraper;
use List::MoreUtils qw/uniq/;

my $uri = URI->new('http://b.hatena.ne.jp/bookmarklist?url=http://blog.kzfmix.com');

my $scraper = scraper {
  process 'dt.bookmarker a',
    'users[]'=> '@href';
};

my $res = $scraper->scrape($uri);

print join "\n", map { s/b.hatena/d.hatena/;$_} uniq(@{$res->{users}});

あとはこの結果をGmailに送ればよいような。

2008-09-12T20:48:10| Comments| clip!

Comments