ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Pavel Reich 2:5004/64.25 20 Nov 2002 14:31:30
To : Sergey Juchkov
Subject : Re: LWP и паpсинг pезультата
--------------------------------------------------------------------------------
Once (Tuesday November 19 2002) at 19:16 someone named Sergey Juchkov wrote to
All. So, look here:
SJ> $ua = LWP::UserAgent->new;
SJ> $ua -> agent("$0/0.1 " . $ua->agent);
SJ> $req = HTTP::Request->new(GET => 'http://192.168.0.1/file.dat');
SJ> $req->header('Accept' => 'text/html');
можно.
$res=$ua->request($req);
if ($res->is_success) {
$headers=$res->headers->as_string;
$content = $res->content;
}
best regards,
Pavel.
--- Golded 1.0.0 under The Doors at 25Reich_workplace
* Origin: When The Music's Over (2:5004/64.25)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
