ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/usr/bin/perl

use threads;
use threads::shared;
my $num : shared; #расшариваем переменную

$thr = 2;

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

sub get
{
   while (1) {
        { lock($num); #блокируем переменную перед увеличением значения
         $num++; }
         print "$num\n";
         #ну и тут собственно делать запрос
   }
}

#!/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";
   }
}