Консультация № 108533
08.11.2007, 09:39
0.00 руб.
0 1 1
Подскажите плиз

функция get ("url_site") перестала работать для определенного url - что посоветуете может есть альтернатива или ....?

Обсуждение

Неизвестный
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; #.....
Форма ответа