Как в преле загрузить файл по http протоколу, типа
virtual в PHP?
<input type="file" name="fl">
#------------------
use CGI;my $cgh=CGI->new();
my $file_name=$cgh->param("fl");
my $file;
while(<$file_name>){
$file.=$_;
}
#------------------вроде так (загружается в переменную $file)
Это понятно, я спрашиваю - как сохранить файл, который лежит не на локальной машине, а где-то в сети.
Ну если нужно скачать файл, как это делает брузер (если я правильно понял), то, наверное, достаточно будет обрезать заголовки, а все остальное скачать. Т.е. открыть сокет
my $s=IO::Socket::INET->new(PeerAddr => 'addr:80', Proto => 'tcp')
а потом GET /file_url/file.ext HTTP/1.0\n\n
Вроде так....
Имхо правильней
use LWP::Simple;смотри man LWP::Simple
там get('url');
getfile('url', filename);
насчет функций могу наврать,
но LWP под перлом юзать имхо правильней. Копай ман-ы.
Подскажите, люди добрые, какая функция perl возвращает длину html страницы. Дело в том, что мой скрипт вносит запрос на форму, нажимает кнопочку и я получаю ответ в виде естественно html кода.
Т.е., например, я заношу в yandex значение RABOTA для поиска. Он ищет ичто-то там находит и возвращает мне. Мне надо проверить не оборвалось ли соединение во время перекачки, т.е. целостность страницы.
p.s. Заранее благодарен.
p.p.s. Предложения о проверке начального и конечного тегов не принимаются.