如何在Perl中提取压缩存档？

Question

我需要允许用户通过网络表单上传zip文件.服务器正在运行带有Apache Web服务器的Linux.有没有使用像模块的优势档案::邮编提取该档案,或者我应该只执行一个系统调用unzip与反引号？

Answer 1

根据Archive :: Zip文档,您最好使用Archive :: Extract:

如果您只是要提取拉链(和/或其他存档),建议您使用Archive :: Extract来查看,因为它更容易使用并且会导致特定于存档的功能.

这很有趣,因为Archive :: Extract将首先尝试Archive :: Zip,然后unzip如果失败则回退到二进制文件. 所以看起来Archive :: Zip似乎是首选.

Archive :: Zip使用Compress :: Raw :: Zlib,它是zlib系统库的低级接口; 所以它不是一个纯粹的Perl实现,这意味着它的性能会相似unzip.换句话说,从性能角度来看,没有理由选择unzipArchive :: Zip.

Answer 2

如果你执行二进制文件unzip,你的进程将fork/exec和

1. 实例化一个新进程
2. 消耗更多内存(在生成进程的持续时间内)

您还必须配置正确的路径unzip.鉴于这一切,我非常喜欢图书馆方法.