如何使用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。