Окончательный вариант исходникограберов dumpz.org ;]

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
use LWP::UserAgent;
$browser = LWP::UserAgent -> new;
$url = 'http://dumpz.org/';
$text= '/text/';
$str = '0001';
$end = '9999';
while ($str<$end) {
$request = $browser -> get ("$url".$str."$text")->content;
open (LOG , ">./$str.html");
print LOG $request;
close LOG;
$str++;
}