Net :: FTP无法上传ZIP档案?

时间:2013-04-05 05:41:52

标签: perl ftp cpan

我正在尝试构建一个perl脚本来压缩目录并将其上传到FTP服务器。我已经使用了压缩部分,但遗憾的是ZIP文件在上传到FTP服务器时总是被“销毁”(打开时出错:'存档意外结束')。

我在这里做错了吗?

my $ftp = Net::FTP->new($host, Debug => 0) or die "Couldn't connect to $host: $!";
$ftp->binary();
$ftp->login($user, $password) or die "Couldn't login: $!";
$stat = $ftp->put($filename) or die "Couldn't upload file: $!";

0 个答案:

没有答案