#!/usr/bin/perl # Scrappy - Your friendly neighborhood web crawler! use Scrappy; our $spidy = Scrappy->new; $spidy->crawl('http://search.cpan.org/recent', { '#cpansearch li a' => sub { print shift->text, "\n"; } });
#!/usr/bin/perl # Scrappy - Your friendly neighborhood web crawler! use Scrappy; our $spidy = Scrappy->new; $spidy->crawl('http://search.cpan.org/recent', { '#cpansearch li a' => sub { print shift->text, "\n"; } });