如何使用Perl读取嵌套Zip归档中的文件

我刚好碰到过类似的需求，用Perl的Archive::Zip确实可以实现内存中读取嵌套Zip里的文件，不需要把文件解压到磁盘。核心思路是先把内层Zip文件的内容读取到内存中，再用这个内存数据创建新的Archive::Zip对象，之后就能像操作普通Zip一样处理内层的文件了。

具体实现步骤 #

1. 加载外层Zip文件，定位到内层的Zip成员
2. 将内层Zip成员的二进制内容读取到内存中
3. 用内存中的二进制数据创建内层Zip的对象
4. 读取内层Zip里的目标文本文件（支持直接读取内容或流式读取）

完整代码示例 #

use strict;
use warnings;
use Archive::Zip;
use Archive::Zip::MemberRead;

# 1. 加载外层Zip文件
my $outer_zip = Archive::Zip->new('ParentFile.zip')
    or die "无法打开外层Zip文件: $!";

# 2. 定位内层的File1.zip成员，注意路径要和Zip内的结构完全匹配（用正斜杠）
my $inner_zip_member = $outer_zip->memberNamed('ParentFolder/Subfolder1/Subfolder2/File1.zip')
    or die "找不到内层Zip成员";

# 3. 将内层Zip的完整二进制内容读取到内存中
#    不管内层Zip在父级Zip里是否被压缩，contents()都会返回它的原始二进制数据
my $inner_zip_data = $inner_zip_member->contents();

# 4. 用内存中的数据创建内层Zip对象
my $inner_zip = Archive::Zip->new(\$inner_zip_data)
    or die "无法加载内层Zip数据: $!";

# 两种读取File1.txt的方式：

# 方式一：直接获取文本内容（适合小文件）
my $file1_content = $inner_zip->contents('File1.txt')
    or die "找不到File1.txt成员";
print "File1.txt 内容:\n$file1_content\n";

# 方式二：用Archive::Zip::MemberRead创建流式句柄（适合大文件，逐行读取）
my $fh = Archive::Zip::MemberRead->new($inner_zip, 'File1.txt')
    or die "无法创建File1.txt的读取句柄";
print "\n流式读取内容:\n";
while (my $line = <$fh>) {
    print $line;
}
close $fh;

关键细节说明 #

• memberNamed()方法需要传入Zip内部的完整路径，路径分隔符统一用正斜杠/，和操作系统无关
• contents()方法会返回成员的原始二进制数据：如果内层Zip在父级Zip里是被压缩的，contents()会先解压它，得到完整的内层Zip文件数据
• 用Archive::Zip->new(\$inner_zip_data)可以直接从内存中的二进制字符串创建Zip对象，完全不需要写入磁盘

内容的提问来源于stack exchange，提问作者PExplorer