in reply to Creating a perlmonks node grabber
use LWP::Simple; my $slurp = get("http://www.perlmonks.org/index.pl?node=Newest\%20Node +s"); push @nodes, $1 while $slurp =~ /\?node_id=(\d+)\&/g; print join("\n", (reverse sort {$a <=> $b} @nodes)[0..9]);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
RE: RE: Creating a perlmonks node grabber
by httptech (Chaplain) on May 04, 2000 at 17:30 UTC |