解壓文件在Perl

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

錯誤：

通過包「test-1.0.zip」無法找到對象的方法「解壓」（也許你忘了裝載「test-1.0.zip」？）在./script.pl線16

請幫我

-Thanks

Answer 1

使用模塊Archive::Zip從zip壓縮文件中提取文件。

該模塊包含一個examples directory包括一個名爲extract.pl