my $data = join '', <DATA>;
print "<li>[id://$_]"
for $data =~ m{\Q<td style = "text-align: right">\E\s+(\d+)\s+\Q</td>\
+E}g;
__DATA__
# raw shizzle from "node lister" here
You can just use super search.
There is still http://tinymicros.com/ptav/
and http://perlmonks.thepen.com,
so if you feel like crawling, that's where i'd start.
In fact, I'd look to improve ptav (ask jcwren about it).
That's as much as I can divulge.
Hmm, it's been about two years since I mirrored perlmonks.thepen.com, hmmm :)
| MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" | | I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). | | ** The third rule of perl club is a statement of fact: pod is sexy. |
|