|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexei Ptshelnikov 2:5020/400 13 Sep 2001 18:21:07
To : Sergey Sheibak
Subject : Re: Довнлоад файлов??
--------------------------------------------------------------------------------
"Sergey Sheibak" <Sergey.Sheibak@p80.f23.n451.z2.fidonet.org>
сообщил/сообщила в новостях следующее:
news:1000307638@p80.f23.n451.z2.ftn...
> Hello Alexei!
>
> 10 Sep 29, Alexei Ptshelnikov writes to Sergey Sheibak:
>
> >> Как качать файлы? Желательно пример.
> AP> Hапример:
> AP> use LWP::Simple;
> AP> my $content = get ("some.url");
>
> И все? после этих строк он начинает качать?
> Да и куда он ложет?
в $content, а потом пиши это, куда хочешь.
> Реально ли some.url заменить списком файлов?
АФАИР нет. Hо это можно прекрасно с помощью цикла сделать... Hапример:
my @fnames; #здесь имена требуемых файлов
my $url = "http://www.host.com/";
for (my $i=0; $i<=$#fnames;$i++) {
my $path = $url . $fnames[$i];
my $content = get ($path);
open (OUT, $fnames[$i]);
print OUT $content;
close (OUT);
}
можно по FTP, но перепечатывать доку лениво, по сему посмотри Net::FTP.
--
WBR, Death Angel.
mailto: alex-ptschel@mtu-net.ru
"Из каждого безвыходного положения есть самое меньшее два выхода". (с)
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
