парсер torrents - умоляю, напишите.

[MrTrick]

всем привет, напишите пожалуйста парсер логинов торрентс ру

[syava]

всем привет, напишите пожалуйста парсер логинов торрентс ру
на халву?

[D Mak]

чего парсить то?

[MrTrick]

да. виртуальных денег денег нет. если ток на моб тел кинуть могу.

[mailbrush]

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

[[dei]]

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

копирайты не рулят?

[mailbrush]

копирайты не рулят?
(с) Гугл

[MrTrick]

все работает. спс