09.11.2007, 02:24
общий
это ответ
Здравствуйте, Топорков Алексей Иванович!
Есть;)
Например так, как в приложении...
Это минимальный вариант. А вообще, модуль LWP имеет огромные возможности;) Так что советую читать родной мануал.
P.S. Проблема может быть и не в get() и ей подобным функциям...
К примеру, если результат обращения к серверу имеет отрицательный результат, мы можем выяснить в чем причина например так:
if ($RES->is_error()) {
print $RES->status_line;
}
___
С уважением.<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset><font color=#777777><i>Ответ отредактирован по просьбе эксперта</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=/info/user/12199 target=_blank>Климова Марина Александровна</a></b> (<font size=1>*Мастер-Эксперт</font>)
<b>• Дата редактирования:</b> 11.11.2007, 01:52</font></fieldset>
Приложение:
#!/usr/bin/perl
use LWP;
#.....
my $UA = LWP::UserAgent->new();
$UA->agent(‘Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; MRA 4.7 (build 01670))‘);
my $REQ = HTTP::Request->new(GET => ‘http://site.ru‘);
my $RES = $UA->request($REQ);
print $RES->content;
#.....