ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

оно само будет делится между потоками, каждый поток будет делать +1 к номеру страницы, $thr = 2; - количество потоков

вот в качестве примера простенький парсер имен файлов на слил.ру

Код:

#!/usr/bin/perl

use threads;
use threads::shared;
use LWP::Simple;
my $num : shared;

$thr = 2;
$num = 25284163;

for(0..$thr) {
   $trl[$_] = threads->create(\&gets);
}
for(0..$thr) {
   $trl[$_]->join;
}

sub gets
{
   while (1) {
         { lock($num);
         $num++; }
         $cont = get("http://slil.ru/$num");
         ($content) = $cont =~ /href="\/.+\/.+\/(.+)"/;
         print $content."\n";
   }
}