|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 11 Apr 2000 15:59:13
To : All
Subject : Re: Скачивание файла
--------------------------------------------------------------------------------
Oleg Bakiev wrote:
>
> Hello Alexander!
>
> 10 Apr 00 19:57, Andrey Sapozhnikov wrote to All:
> >> Помогите, pls, с примером программы, скачивающей файл с заданного
> >> url. Программа должна выполняться не на сервере, а на моем
> >> компьютере.
>
> AS> use LWP::UserAgent;
> AS> use HTTP::Request;
> AS> my $ua=new LWP::UserAgent;
> AS> my $res=$ua->request(new HTTP::Request(GET=>$url));
> AS> if($res->is_success) {
> AS> print $ua->content;
> AS> } else {
> AS> die $res->status_line;
> AS> }
>
> Можно и проще.
>
> use LWP::Simple;
> getstore($url,$file);
Hе надо приучать к плохому. Приятно поразить
человека простотой, но 100 к 1, что ему придется
отказаться от Simple если ему надо чуть больше
чем просто скачать файл.
Андрей
P.S. А вообще-то с LWP уже идет пакет скриптов. Так
что: system "GET $url >$file"; :-)
--- ifmail v.2.15dev4
* Origin: Chelindbank (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
