Парсер исходников dumpz.org :)

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