Форум АНТИЧАТ - парсер torrents - умоляю, напишите.

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - парсер torrents - умоляю, напишите. (https://forum.antichat.xyz/showthread.php?t=108702)

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

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

Цитата:

Сообщение от MrTrick

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

на халву?

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

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

Код:

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

Код:

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

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

Цитата:

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

(с) Гугл

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