本文最后更新于:星期日, 五月 31日 2020, 2:37 下午

use Archive::Zip;

my $obj = Archive::Zip->new();
$status = $obj->read($fileFrom);
if ($status != AZ_OK) {
	print "=====程序终止!=====\n解压失败\n";	
	#保留黑框
	system pause;
	#程序停止运行
	die;
} else {
	$obj->extractTree(undef, $fileTo);
}


本文标题:Perl解压zip
文章作者:潘高
发布时间:2018年01月09日 - 13:29:22
最后更新:2020年05月31日 - 14:37:59
原始链接:https://blog.pangao.vip/Perl%E8%A7%A3%E5%8E%8Bzip/
许可协议:署名-非商业性使用-禁止演绎 4.0 国际 转载请保留原文链接及作者。

Perl递归删除文件夹及其内容 上一篇
常用生物信息学格式介绍 下一篇
如果这篇文章对你有帮助,或者想给我微小的工作一点点资瓷,请随意打赏。
潘高 微信支付

微信支付

潘高 支付宝

支付宝

 目录