Forum Webscript.Ru
Программирование => Perl => Тема начата: A.Perez от 22 Декабря 2005, 17:19:02
-
скачиваю страницу Бестселлеров на магазине болеро при помощи LWP, сервер отвечает не 200 а 302, из за этого, страница не скачивается, как быть?
помогите пожалуйста.
Как обойти?
-
Получить страницу 302 и запросить этот документ.
-
А как это сделать? //сори за тупость
-
извиняться нужно за лень
use LWP::Simple;
my $url = \'gmail.com\';
$url = \'http://\'.$url if ($url !~ m/^http/);
my $page = head("$url");
if ($page->{\'_previous\'}->{_rc} == 302)
{
print $page->{\'_previous\'}->{\'_headers\'}->{\'location\'};
}
Вместо print написать нужную комманду.