Question

我是perl的新手并尝试创建一个zip文件。文件，脚本都在同一个目录中，zip也只需要在那里。下面是我正在尝试的代码，它正在退出而没有任何错误，但也没有任何zip文件。我传递“* .txt”作为命令行参数。请建议。

use strict;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);

die "usage: $0 zip.pl\n"
  if (scalar(@ARGV) < 1);

my $zipName = "dummy";
my $zip     = Archive::Zip->new();

foreach my $memberName (map { glob} @ARGV ) {
    if (-d $memberName) {
        warn "Can't add tree $memberName\n"
          if $zip->addTree($memberName, $memberName) != AZ_OK;
    } else {
        $zip->addFile($memberName)
          or warn "Can't add file $memberName\n";
    }
}

my $status = $zip->writeToFileNamed($zipName);
exit $status;

Answer 1

网站（ARGS）方法就是为此而设计的。您可以发送shell命令并使其在远程服务器上运行。 http://perldoc.perl.org/Net/FTP.html#METHODS

在perl中创建远程服务器上的文件zip

1 个答案: