Если делать без авторизации на сайте, то для прохода всех постов надо сделать около 260 запросов. Если с авторизацией и просмотром по 40 постов на стр., то около 60. Могу на Delphi написать, если надо.
А идея не плохая, кстати)
use strict;
use warnings;
use LWP::UserAgent;
#Диапазон страниц
my $range = '1-261';
my $output = './hash.txt';
my $ua = new LWP::UserAgent;
my ($i, $j) = split /-/, $range;
for($i ; $i <= $j; $i++)
{
print "Parsing page $i\n";
my $data = $ua->get('http://forum.antichat.ru/threadnav83865-'.$i.'-10.html')->content;
my @list = ($data =~ /(\w{32})</g);
if(@list)
{
print " Found ".@list." hashes\n";
open F, '>>', $output;
print F $_.$/ for @list;
close F;
}
}
Последний раз редактировалось Kaimi; 17.08.2009 в 21:40..