, WWW:: Mechanize - -; , , . -, : " , , " "" ", ...".
Scrappy - - :
my $spidy = Scrappy->new;
$spidy->crawl('http://search.cpan.org/recent', {
'#cpansearch li a' => sub {
print shift->text, "\n";
}
});
Scrappy Web:: Scraper , .
, HTML, HTML:: TableExtract - , , , , , :
use HTML::TableExtract;
$te = HTML::TableExtract->new( headers => [qw(Date Price Cost)] );
$te->parse($html_string) or die "Didn't find table";
foreach $row ($te->rows) {
print join(',', @$row), "\n";
}