- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3513 [639]
От : Alexander Timoshenko 2:5020/400 09 мая 04, 20:45
Кому : Serge Chervjakov 10 мая 04, 22:44
Тема : Re: Net::FTP bug?
-------------------------------------------------------------------------------
From: Alexander Timoshenko
Serge Chervjakov wrote:
SC> Hi All,
SC>
.. skipped ..
SC> my $ftp=Net::FTP->new($ftp_data->{host}, Debug => 0);
SC> $ftp->binary();
SC> $ftp->login($ftp_data->{login},$ftp_data->{passw});
SC> $ftp->cwd($ftp_data->{startdir});
SC> -- тут еще создается несколько папок, в них заходится --
SC> $ftp->put("temp/a.jpg","a.jpg");
SC> $ftp->quit();
SC>
.. skipped ...
SC> Где не дочитал?
подозреваю что ->binary() нужно вызывать *после* логина.
--
gonzo
--- ifmail v.2.15dev5.3
* Origin: National Taras Shevchenko University of Kyiv (2:5020/400)