$p01nt
29.05.2008, 10:29
Сабж. Вот скрипт:
#! usr/bin/perl
use strict;
use LWP;
my $url='http://by.ru/login.cgi';
my $browser=LWP::UserAgent->new;
my $response=$browser->post($url,
[ 'login'=>'login',
'password'=>password',
'p2'=>'',
]
);
$response=$response->as_string;
my $tt=$response=~m/Location:(.*)\.cgi/;
my $checktext='http://by.ru/panel';
if ($tt!=$checktext){
print "Valide Account";
}else{
print "No valide Account";
}
И накидайте ссылок про многопоточность в перл плз
#! usr/bin/perl
use strict;
use LWP;
my $url='http://by.ru/login.cgi';
my $browser=LWP::UserAgent->new;
my $response=$browser->post($url,
[ 'login'=>'login',
'password'=>password',
'p2'=>'',
]
);
$response=$response->as_string;
my $tt=$response=~m/Location:(.*)\.cgi/;
my $checktext='http://by.ru/panel';
if ($tt!=$checktext){
print "Valide Account";
}else{
print "No valide Account";
}
И накидайте ссылок про многопоточность в перл плз