Re: Как скачать страницу?
Для полноценного ответа на этот вопрос надо указать адреса страниц и название проги. Если прога уникальна — надо дать на неё посмотреть.
Вот тот фрагмент программы, о котором идёт речь:
my $ua = LWP::UserAgent->new;
my $addr = $str_chab.$num;
open(filein,">in.html");
my $request = HTTP::Request->new(GET,
$addr);
my $response = $ua->request($request);
if ($response->is_success)
{
print filein "", $response->content;
}
else
{
print "Bad news: " . $response->message;
}
close(filein);
Значение $addr - 'http://svyaznoy.ru/index.php5?action=DAProduct9&MobileGSM=1294875'
my $ua = LWP::UserAgent->new;
my $addr = $str_chab.$num;
open(filein,">in.html");
my $request = HTTP::Request->new(GET,
$addr);
my $response = $ua->request($request);
if ($response->is_success)
{
print filein "", $response->content;
}
else
{
print "Bad news: " . $response->message;
}
close(filein);
Значение $addr - 'http://svyaznoy.ru/index.php5?action=DAProduct9&MobileGSM=1294875'
гз
Проблема в этой функции
$ua->request
А не знаешь, как это можно исправить?
$ua->cookie_jar({});
Оставить комментарий
skovoroda
Программа на PERL.Получает на вход строку с адресом страницы и скачивает эту страницу в файл.
При этом некоторые страницы она не скачивает, а некоторые скачивает.
В чём может быть дело? И как это возможно лечить?