实际上,我使用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 $h