从 ZIP 存档中导出文件列表而不解压缩

Question

我有数百个 ZIP 档案，每个档案都包含 2000 到 4000 个 xml 文件。现在我需要一些方法来获取一个文本文件，该文件将包含这些 xml 文件的列表或至少每个存档中的文件计数。

是否有任何应用程序可以做到这一点，或者我可以通过 cmd 或 perl 做到这一点？

我不是专业的程序员

Answer 1

Archive::Zip 可用于读取 zip 文件及其成员。

该模块包含一个examples directory，其中包含许多有用的脚本来展示如何使用该模块。

Answer 2

类似这样的：

#!/usr/bin/perl
use strict;
use warnings;

use Archive::Zip;

my $archive_name = "archive.zip";

my $archive_extract = Archive::Zip -> new ( $archive_name );
foreach my $member ( $archive_extract -> members() )
{
  print $member -> fileName(),"\n";
}

当然，您需要提供自己的目录搜索。我建议您查看File::Find