perl压缩文件

jp163123

各位大神：需求如下
现在要压缩一个目录下面的多个文件进压缩包
代码如下：
my $uzip = Archive::Zip->new();

chdir $MODETLINFO::ETL_UNSTRU_ROOT;

foreach my $unfile (@nstrufiles) {
        #TODO check file exist or not
        print "$unfile\n";                               ---这里可以打印出来多个文件的文件名
        $uzip->addFile($unfile);

}


my $zipfile = $MODETLINFO::SYNCSQLSND;

$zipfile .= "/oltp_" . getDateTime() . ".zip";

unless ( $uzip->writeToFileNamed($zipfile) == AZ_OK ) {
        print "Error in archive [$zipfile] creation!\n";
}

可是为什么压缩包里只有最后一个文件呢，之前循环出来的文件都被替换了，我需要把多个文件压缩到一个包里。
求大神指点。。。

jp163123

自己顶下，求大神！！！！！

MMMIX

回复 1# jp163123


    先检查下 addFile 的返回值吧。

jp163123

在本地win下面测试都没什么问题，放到unix就出现这种问题了，难道是模块或者perl的版本问题？哪位大神遇到过。。。。