День добрый! При копировании файла по FTP, на удаленной машине(FreeBSD) создаётся одноименный файл нулевой длинны. Скрипт, выполняющий это действие, работу не завершает. Средствами Midnight Commander копирую без проблем. В чём дело то? Спасибо.sub put2FTP { @ARGV1=@_; my $ftp = Net::FTP->new(FTP_SRV,Passive=>1,Timeout=>30,Debug=>0) or die "Can't connect to $FTP_SRV: $!\n"; $ftp->login($FTP_LOGIN,$FTP_PASS) or die "Can't login to $FTP_SRV: $!\n"; $ftp->cwd("/squid"); $ftp->binary(); $ftp->put($ARGV1[0]); $ftp->quit(); }
|