Code: sub Brut { #Название функции my $fid = $_; #Переменная с номером потока(используется позже для того чтобы каждый поток писал в отдельный файл while($i>0) #Создаем цикл, который будет выполнятся пока ид страницы > 0 { my $url = ""; #Создаем пустую переменную $url { lock($i);$i--; #Блокируем переменную $i для данного потока и уменьшаем её значение на 1 print "$i\n"; #Выводим на экран текущее значение $i $url = "http://torrents.ru/forum/profile.php?mode=viewprofile&u=$i" # Присваиваем переменной $url адрес страницы для дальнейшего парсинга } $res = $ua->get($url)->as_string; #Получаем страницу в переменную $res if ($res =~ /Профиль пользователя: (.*?)<\/h1>/) #Регулярным выражением вытаскиваем из текста страницы логин пользователя { open(FILE, ">>$fid.log.txt") || die("Could not open $fid.log.txt\n"); #Открываем файл для дозаписи print FILE $1."\n"; #Записываем в файл полученный с помощью регулярного выражения логин пользователя close(FILE); #Закрываем файл } } } PERL