Yusukebe::Tech

はてなハイクのユーザーになれないから嫉妬している。 PlaggerのEFTも書きたい。

use Web::Scraper;
use URI;
use YAML;

my $url = shift || "http://h.hatena.ne.jp/";
my $entries = scraper {
    process 'li.entry', 'entries[]' => scraper {
        process 'div.title', 'title' => 'TEXT';
        process 'span.username > a', 'username' => 'TEXT';
        process 'span.timestamp > a', 'timestamp' => 'TEXT', permalink => '@href';
    };
    result 'entries';
}->scrape(URI->new($url));

print Dump($entries);