Рабочий грабер исходников с дампза :]

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
use LWP::UserAgent;
$browser = LWP::UserAgent -> new;
$url = 'http://dumpz.org/'; #начало урла
$text= '/text/'; #конец урла
$str = '1111'; #начальная страница
$end = '1211'; #конечная страница
while ($str<$end) {
$request = $browser -> get ("$url".$str."$text")->content;
$dir = int(rand(1000));
mkdir ($dir);
open (LOG , ">./$dir/$str.html");
print LOG $request;
close LOG;
$str++;
}