Добрый день господа, хотелось бы поинтересоваться....увидел на дня скрипт дя поверки баланса на сотовом(в данном случае 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");
---------------------------------------------------------------------------------------------------
Вариант для распечатки
Программирование под UNIX (Shell скрипты)
on 10-Фев-10, 08:51 
