|
Тема |
Re: Получаване на инфо от заявка, ебаси топика сложих [re: voyager] |
|
Автор | Stalker (Нерегистриран) | |
Публикувано | 14.03.03 10:00 |
|
|
Ето пример:
# Create a user agent object
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
# Create a request
my $req = HTTP::Request->new(POST => 'http://www.perl.com/cgi-bin/BugGlimpse');
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
if ($res->is_success) {
print $res->content;
} else {
print "Bad luck this time\n";
}
|
| |
|
|
|