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

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

2 个答案: