实际上我使用 Net::FTP::Recursive 来下载目录结构,它适用于所需的内容。但由于某些文件夹有超过 100/ 个文件,因此下载可能需要很长时间。由于 zip 文件下载速度更快,我怎么能使用 perl 通过 ftp 连接到远程服务器并从远程服务器/文件夹创建一个 zip 文件以进行下载?
use Net::Config;
use Net::FTP::Recursive;
$ftp = Net::FTP::Recursive->new("$hostname:$ftp_port", Debug => 0)
or die "Cannot connect to $hostname: $@";
$ftp->login($iLogin,$iPass)
or die "failed ", $ftp->message;
$ftp->binary()
or die "Cannot set to Binary";
$ftp->cwd("/admin/packages/$fileName")
or die "Cannot change working directory ", $ftp->message;
$ftp->rget( $fileName );
#or die "Download Failed ", $ftp->message;
$ftp->quit;
谢谢大家的时间