我有一个PHP脚本来复制目录中的所有文件,我已经更改了我的服务器,现在它不复制index.php文件,所有其他文件复制成功,并抛出以下警告。
Warning: ftp_get(tmp/readme.txt): failed to open stream: Permission denied in /var/www/vhosts/Site.com/httpdocs/includes/ftp.class.php on line 123
Warning: ftp_get(): Error opening tmp/readme.txt in /var/www/vhosts/Site.com/http
实际上,我使用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