Обьічньій *.html сайт вьіходит скачать вот таким скриптом даньім ниже, тоесть файл которьій является HTML файлом физически и лежит на серваке... а вот некоторьіе адреса скачать не вьіходит..

Код

use LWP; my $u='http://www.ya.ru'; my $ua = LWP::UserAgent->new; my $newagent = 'HTTP/1.0 ('.$ua->agent.')'; $ua->agent($newagent); my $request = HTTP::Request->new(GET=>$u); my $response = $ua->request($request); if ($response->is_success) {$ccc=$response->content;} print $ccc;

вьідает результат --- индекс HTML файл Яндекса,
а вот с адреса

http://uk.w3.weather.com/weather/local/UPX...t&code=code&y=0

или просто (бравзерьі реагируют нормально)
http://uk.w3.weather.com/weather/local/UPXX0017

не качает ничего.. тоесть все что не html в виде файла лежащего на сервере - не качает... как с етим боротся? Подскажите!

а вот скрипт ниже, возвращает HTML файл пустой страницьі сгенерированной серваком

Код

#!/usr/bin/perl print "Content-type: text/html \n\n"; use LWP; my $u='http://uk.weather.com/weather/local/UPXX0017'; my $ua = new LWP::UserAgent; $ua->agent(' Mozilla/4.0 (compatible; MSIE 5.01; Windows NT)'); $ua->proxy('http','http://proxy.comfort-service.com'); my $request = new HTTP::Request("GET" => $u); $response = $ua->simple_request($request); print $response->as_string(); print "\n"; print $response->status_line;

ЗАРАНЕЕ БЛАГОДАРЕН

В свое время для скачивания страницы с сервера я пользовался вот ткаим способои:

Код

use strict; use LWP::Simple qw(get); $url='url страницы'; $str = get($url);