? по LWP:UserAgent (perl)
Добавлено: 07 апр 2006, 01:22
Здраствуйте!
Помогите разобраться.
написал типа www клиента (по примерам)
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$url='http://www.google.ru/'#для примера
$request = HTTP::Request->new('GET', $url);
$response = $ua->request($request);
if ($response->is_success) {
open(ff,">content.html");
print ff $response->content;
close(ff);
}else{
print "Error: " . $response->status_line . "\n";
}
При запросе(смотрю снифером) в заголовке :
GET / HTTP/1.1
TE: deflate,gzip;q=0.3
Connection: TE, close
Host: http://www.google.ru
User-Agent: libwww-perl/5.805
Что такое TE?! И как его менять или убрать(методом remove_header не удаляется)?
Покапался по модулям, вроде это устанавливается на более низком уровне(NET::HTTP). Но как отключить так и не понял.
Помогите разобраться.
написал типа www клиента (по примерам)
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$url='http://www.google.ru/'#для примера
$request = HTTP::Request->new('GET', $url);
$response = $ua->request($request);
if ($response->is_success) {
open(ff,">content.html");
print ff $response->content;
close(ff);
}else{
print "Error: " . $response->status_line . "\n";
}
При запросе(смотрю снифером) в заголовке :
GET / HTTP/1.1
TE: deflate,gzip;q=0.3
Connection: TE, close
Host: http://www.google.ru
User-Agent: libwww-perl/5.805
Что такое TE?! И как его менять или убрать(методом remove_header не удаляется)?
Покапался по модулям, вроде это устанавливается на более низком уровне(NET::HTTP). Но как отключить так и не понял.