如何解决perl zip目录为空
| 我正在尝试使用Archive :: Zip压缩目录,但得到的结果为空。 我究竟做错了什么? my ($inDirectory,$outFile) = @_;
# Create a Zip file
my $zip = Archive::Zip->new();
# Add a directory
my $dir_member = $zip->addDirectory($inDirectory. \"/\");
# Save the Zip file
unless ( $zip->writeToFileNamed($outFile) == AZ_OK ) {
die \'Could not zip file\';
}
解决方法
正常工作,我不得不使用$ zip-> addTree
, 也许您的目录$ inDirectory ...不是预期的目录,我不确定,但是看起来您不需要dirname的反斜杠:
print $inDirectory::Find::name;
if ( -d $inDirectory::Find::name ) { # just grab directories,not files.
print \"adding a dir\\n\";
$zip->addDirectory($inDirectory::Find::name);
} else {
#zip files
print \"adding a file\\n\";
$zip->addFile($inDirectory::Find::name) != AZ_OK || print \"couldn\'t add file \\n\";
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。