|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 14 Mar 2002 19:15:09
To : Andrey Sapozhnikov
Subject : Re: Пpокся мешает LWP
--------------------------------------------------------------------------------
Здравствуй, Andrey Sapozhnikov.
>> AVP> Есть код:
>> AVP> #!/usr/bin/perl -w
AS> >
>> AVP> use LWP::UserAgent;
>> AVP> use HTTP::Request;
AS> >
>> AVP> $ua = new LWP::UserAgent;
>> AVP> $ua->agent("");
AS> >
>> AVP> $req = new HTTP::Request GET => 'http://yandex.ru';
>> AVP> $req->content_type('text/html');
>> AVP> $req->content('match=www&errors=0');
AS> >
>> AVP> $res = $ua->request($req);
AS> >
>> AVP> print $res->content;
AS> >
>> AVP> if ($res->is_success)
>> AVP> {
>> AVP> print $res->content;
>> AVP> }
>> AVP> else
>> AVP> {
>> AVP> print $!;
>> AVP> }
AS> >
>> AVP> Когда делаю в локалке так - все здоpово, когда наpyжy - сквид отвечает,
>> AVP> что pеквест y меня непpавильный и я послан... Кто-то сталкивался?
AS> >
AS> > rtfm на предмет слова proxy. По-моему, очевидно...
AS> И еще R много других TFM. Hапример насчет того какие бывают
AS> Content-Type у HTTP запросов, бывают ли при запросе GET
AS> content и Content-Type, и почему переменная $! не содержит
AS> ничего вразумительного в данном примере... А так же,
AS> поинтересоваться можно ли в ->agent передавать пустую строку
AS> и к чему это приведет.
Тоже верно.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
