如何在perl中的遠程服務器上創建Zip文件

Question

實際上我使用Net :: FTP ::遞歸下載目錄結構，它適用於所需的。 但由於某些文件夾有超過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;

謝謝大家的時間

Answer 1

我認為您需要具有SSH訪問系統才能運行ZIP命令。 但如果是這種情況，您也可以使用SCP更安全地傳輸文件。 FTP完成所有工作。

謝謝，

F。

Answer 2

站點（ARGS）方法就是為此而設計的。 您可以發送shell命令並使其在遠程服務器上運行。 http://perldoc.perl.org/Net/FTP.html#METHODS

但是，我知道的大多數FTP服務器都禁用了該權限，所以，祝你好運