Парсер SEO Logs

10 декабря, 2007 at 21:55 (/code, /php)

Приват в Паблик! *новая акция

#!/usr/bin/perl -w
use strict;

my $res = `GET 'https://my.djuice.com.ua/tbmb/login_djuice/perform.do?user=80971234567&password=1111111'`;
my ( $cash ) =  $res =~ m,</td>
\s+
<td><b>([0-9.]+)</b> ,x;

if( defined $cash ){
    `notify-send -u low "DJUICE :" "Остаток на балансе $cash грн"`;
}else{
    die 'somting wrong';
}