Automatic pagination using autopagerize
use WWW::Mechanize::AutoPager;
my $mech = WWW::Mechanize->new;
# Load siteinfo from http://swdyh.infogami.com/autopagerize
$mech->autopager->load_siteinfo();
# Or, load manually
$mech->autopager->add_site(
url => 'http://.+\.tumblr\.com/',
nextLink => ...,
);
$mech->get('http://otsune.tumblr.com/');
if (my $link = $mech->next_link) {
$mech->get($link);
$mech->page_element; # HTML snippet
}
WWW::Mechanize::AutoPager is a plugin for WWW::Mechanize to do automatic pagination using AutoPagerize user script.
\s-1THIS\s0 \s-1MODULE\s0 \s-1IS\s0 \s-1CONSIDERED\s0 \s-1EXPERIMENTAL\s0 \s-1AND\s0 \s-1ITS\s0 \s-1API\s0 \s-1WILL\s0 \s-1BE\s0 \s-1LIKELY\s0 \s-1TO\s0 \s-1CHANGE\s0
Tatsuhiko Miyagawa <[email protected]>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
HTML::AutoPagerize, <http://swdyh.infogami.com/autopagerize>