|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artur Penttinen 2:5020/400 16 Aug 2000 16:01:57
To : Eugen J. Sobchenko
Subject : Re: recursive upload
--------------------------------------------------------------------------------
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> print "done.\n";
EJS> }
EJS> find(\&putit, @dirs);
EJS> sub putit {
EJS> my (@files);
EJS> push @files, $File::Find::name;
EJS> foreach my $file (@files) {
EJS> my $size = (stat($file))[7];
EJS> print "Uploading '$file' ($size)... ";
EJS> $ftp->put("$file") or err(1,"can't upload");
EJS> print "done.\n";
EJS> }
EJS> }
EJS> }
EJS> [cut]
EJS> Hо почему-то не работает.
EJS>
EJS> Может кто-нибудь скажет в чем проблема?
А какие ошибки выдает?
WBW, Artur
--
Бригада строителей-монтажников ищет работу. Интим не предлагать.
--- ifmail v.2.15dev5
* Origin: Bits & Bobs Inc. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: recursive upload 