用perl run几个shell命令就行了
用unzip命令 先把目标zip解压到文件夹
rm 目标zip文件
然后cd 文件夹名 && rm -rf 要删除的文件 && cd ../
zip 命令再把文件夹压缩
rm -rf 解压文件夹就好了
perl 里面调用shell命令只需用反引号`（数字1左边那个键）将所运行的命令包起来就行了，当然你需要有文件读写权限
这个，我相信用zip软件的命令行模式会更简单
比如用7-zip（免费软件）
7z d archive.zip *.bak -r
删除archive.zip文件中的所有.bak文件(包括子目录中的)。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024