use LWP::Simple; my $slurp = get("http://www.perlmonks.org/index.pl?node=Newest\%20Node +s"); $node{$1} = $2 while $slurp =~ /\?node_id=(\d+)\&[^>]*>([^<]*)/g; for ((reverse sort {$a <=> $b }keys %node)[0..9]) { print "<a href=\"http://www.perlmonks.org/index.pl?node_id=$_\">$n +ode{$_}</a>\n"; }
In reply to PerlMonks Newest 10 Nodes Grabber by httptech
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |