Perl解压zip

1
2
3
4
5
6
7
8
9
10
11
12
13
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);
}

-------------已经触及底线  感谢您的阅读-------------
潘高 wechat
公众号:潘高陪你学编程
如果你觉得这篇文章对你有帮助,或者想给我微小的工作一点点资瓷,请随意打赏。

本文标题:Perl解压zip

文章作者:潘高

发布时间:2018年01月09日 - 13:29:22

最后更新:2019年03月08日 - 13:30:17

原始链接:https://blog.pangao.vip/Perl解压zip/

许可协议: 署名-非商业性使用-禁止演绎 4.0 国际 转载请保留原文链接及作者。