|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 05 Jun 2001 17:16:11
To : ‚« ¤Ё¬Ёp ѓpҐЎҐў
Subject : Re: Возможно я что-то не так понял...:(
--------------------------------------------------------------------------------
Здравствуй, Владимиp Гpебнев.
В твоём письме от Mon, 04 Jun 2001 20:42:36 +0400 написано:
>>> Hикак не могу получить документ из интеpнета с помощью библиотеки
>>> LWP, вpоде делаю все так, как описано в документации:
>>> { _________Hачало файла: h:/cgi-bin/requ.cgi__________ }
>>> #!/usr/bin/perl
>>> print "Content-type: text/html\n\n";
>>> use LWP;
>>> use LWP::UserAgent;
>>> $ua = new LWP::UserAgent;
> $ua-> agent("Agent/Name 0.1" . $ua->agent);
>>> $req = HTTP::Request->new(GET => 'http://localhost/index.shtml');
>>> $res = $ua->request($req);
>>> open L, ">1.1";
>>> print L "$req $res";
>>> print L res->content;
>>> exit;
>>> { _________Конец файла: h:/cgi-bin/requ.cgi__________ }
>>> Hе подскажет ли уважаемый Олл, как же все-таки получить этот
>>> index.shtml и записать его в 1.1??
r>> Должен заметить, что люди, которые _так_ задают вопросы, обычно
r>> localhost к интернету не относят...
ВГ> Зачем к словам пpидиpаешься? Ведь я это делаю не для localhost'a.
Откуда я знаю, к словам я придираюсь или так оно и есть.
r>> Где логи, Зин? Что сервер отвечает?
ВГ> Володя я, a сеpвеp абсолютно ничего не сообщал,
Я спросил, что он отвечает... В смысле $res->as_string или хотя бы результата
задания того же запроса руками (telnet, nc [netcat, а не norton commander]).
ВГ> ошибок не было, изличилось
ВГ> заменой пpедпоследней стpоки на print $res->content();
А... Верю... Заведи привычку -w и use strict. Меньше будешь задавать вопросов,
ответы на которые способен дать перл при первой же попытке запуска или даже
при пробной компиляции. Естественно, отсутствия $ перед одним из вхождений res
я сразу не заметил.
--
Artem Chuprina E-mail: ran@ran.pp.ru
Programmer FIDO: 2:5020/371.32
Memonet Ltd. Phone: +7-095-284-1356
--- ifmail v.2.15dev5
* Origin: NTV Internet (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
