如何使用Perl的Archive :: Zip从ZIP压缩文件中提取单个文件？

Question

我有一个zip文件X，我想提取一个文件，位于x/x/x/file.txt。我如何使用Archive::Zip和Perl来做到这一点？

Answer 1

可以使用extractMember方法：

extractMember（$ memberOrName [，$ extractedName]）

提取给定的成员，或匹配其名称和解压。如果该Zip中不存在成员，则返回undef。如果给出可选的第二个参数，则将其用作提取的成员的名称。否则，该成员的内部文件名将用作提取的文件或目录的名称。如果传递$ extractedName，它应该是本地文件系统的格式。所有必要的目录将被创建。成功时返回AZ_OK。

Answer 2

请参阅Archive::Zip::FAQ“从Zip中提取文件”。示例文件的当前版本为http://cpansearch.perl.org/src/ADAMK/Archive-Zip-1.30/examples/extract.pl。