Question

我的剧本：
＃！的/ usr / local / bin中/ perl的

use POSIX qw(strftime);
use strict;
use warnings;
use Getopt::Long;

my ($artifact, $package_id) = @ARGV;
print $artifact;
print $package_id;


if($artifact =~ /\.zip$/i)
    {
    chdir("/apps/checkout/artifactory/xxkintana/$package_id");
    unzip  $artifact;

 }

运行：./ script.pl test-1.0.zip 4370177

错误：

找不到对象方法＆＃34;解压缩＆＃34;通过包＆＃34; test-1.0.zip＆＃34; （也许你忘了在./script.pl第16行加载＆＃34; test-1.0.zip＆＃34;？）。

请帮帮我

-Thanks

Answer 1

使用模块Archive::Zip从zip存档中提取文件。

该模块包含一个examples directory，其中一个名为extract.pl

在perl中解压缩文件

1 个答案: