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

Question

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

执行此操作

Answer 1

您可以使用extractMember方法：

  

extractMember（$ memberOrName [，$ extractedName]）

     

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

Answer 2

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