mikio.pl

#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;
use WWW::Mechanize::AutoPager;
use Web::Scraper;
use YAML::Syck;

my $mech = WWW::Mechanize->new(timeout => 10);
$mech->add_header('Accept-Encoding', 'identity');
$mech->autopager->load_siteinfo();
my $greeting = scraper { process 'div.storycontent p', text => 'TEXT'; };

my $u = 'http://alpha.mixi.co.jp/blog/?author=3';
while($u) {
    my $res = $greeting->scrape( $mech->get($u)->decoded_content );
    print Dump $res;
    last if ( $@ or !defined($mech->next_link) );
    $u = $mech->next_link;
}