Perl解压zip

本文最后更新于:2021年7月29日 下午

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);
}


如果这篇文章对你有帮助,或者想给我微小的工作一点点资瓷,请随意打赏。
潘高 微信支付

微信支付

潘高 支付宝

支付宝


Perl解压zip
https://blog.pangao.vip/Perl解压zip/
作者
潘高
发布于
2018年1月9日 下午
更新于
2021年7月29日 下午
许可协议