|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artur Penttinen 2:5020/400 16 Aug 2000 17:37:55 To : Eugen J. Sobchenko Subject : Re: recursive upload -------------------------------------------------------------------------------- Eugen J. Sobchenko <ejs@paco.net> wrote: EJS> On Wed, 16 Aug 00 15:01:57 +0300, artur@niif.spb.su <artur@niif.spb.su> EJS> wrote: >>From: Artur Penttinen <artur@niif.spb.su> >> >>Eugen J. Sobchenko <ejs@paco.net> wrote: >>EJS> Только что сделал c File::Find + Net::FTP. >>EJS> вот так: >>EJS> [cut] >>EJS> sub recurse(@) { >>EJS> my (@dirs); >>EJS> my ($dir); >>EJS> push @dirs, @_; >>EJS> foreach my $dir (@dirs) { >>EJS> print "Creating '$dir'... "; >>EJS> $ftp->mkdir("$dir", RECURSE) or err(1, "can't create directory"); >> >> RECURSE определен? EJS> что значет определен? >> EJS> EJS> [cut] EJS> >> А какие ошибки выдает? EJS> EJS> Она нормально создает директории, но не может загрузить файлы. EJS> EJS> Права нормальные. EJS> Может ей не нравится полный путь к файлу, который возвращает EJS> $File::Find::name. Чайник не варит как побороть. Тогда надо в логи смотреть на той стороне. WBW, Artur -- Много будешь знать - мало будешь жить ! --- ifmail v.2.15dev5 * Origin: Bits & Bobs Inc. (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/65782eed6fdd.html, оценка из 5, голосов 10
|