はてブお気に入りパーサー

hatebu-favorite-parser.pl

use URI;
use Web::Scraper;

sub scrape {
    my ($class, $config) = @_;
    my $url = "http://b.hatena.ne.jp/"
              . $config->username
              . "/favorite?threshold="
              . $config->threshold;
    my $scraper = scraper {
        process "ul#bookmarked_user > li", 'entries[]' => scraper {
            process "h3.entry > a.entry-link", title => "TEXT";
            process "h3.entry > a.domain", domain => "TEXT";
            process "ul > li.category > a.category-link", category => '@href';
            process "div.comment > ul.comment > li.others > a.username", 'users[]' => 'TEXT';
        };
    };
    my $res = $scraper->scrape(URI->new($url));
}