Исходное сообщение
"Возможно ли 'balance checker' на bash ?" Отправлено 0ff, 10-Фев-10 08:51
Добрый день господа, хотелось бы поинтересоваться....увидел на дня скрипт дя поверки баланса на сотовом(в данном случае BWC), но на perl, возможно ли реализовать подобгое  в bash скрипте ? собсно скрипт : ---------------------------------------------------------------------------------------------------------- #!/usr/bin/perl -w ############################################################# ## ## BWC (http://www.bwc.ru) balance checker ## by Qwadrat, qwadrat@gmail.com ## ############################################################# use strict; use warnings; use LWP; my $prefix=''; #код my $phone=''; #7 цифр телефона my $passwd=''; # пароль на issa.bwc.ru my $agent = LWP::UserAgent->new; my $url = 'http://issa.bwc.ru/cgi-bin/cgi.exe?function=is_login' ; $agent->cookie_jar({}); my $response = $agent->post($url,[ 'mobnum' => $prefix.$phone,'Password' => $passwd]); die "$url error: ", $response->status_line unless $response->is_success; $response = $agent->get("http://issa.bwc.ru/cgi-bin/cgi.exe?function=is_account"); $response->content =~ /<td class=dark align=left width="50%"> Актуальный баланс:<\/td>\r\n<td class=light width="50%"> (.+?) /; my $rc = (defined $1)?($1):("**.**"); print $rc, "\n"; $response->content =~ /(cgi-bin\/cgi.exe?function=is_exit)\"/; $response = $agent->get("http://issa.bwc.ru"); ---------------------------------------------------------------------------------------------------