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

use LWP::Simple;
use strict;
use threads;
use threads::shared;

my $start : shared=1;
my $finish : shared=10;
my $potok=5;
my @trl;

for(0..$potok-1) {$trl[$_] = threads->create(\&pars);}
for(@trl) { $_->join; }


sub pars {
	while ($start <= $finish) {
		my $url = undef;
		{lock($start); $url ="url/$start/"; ++$start;}
		print "Search on URL: $url\n";
		my $response=get $url;
		
	}
}