如何使用 Perl 搜索存档文件

Question

您使用 Perl 阅读压缩目录内容的首选方法是什么？

Answer 1

如果您想要 .tar.gz 存档的内容

open(DIR_LISTING, "gzip -dc concert25.tgz | tar -tf -|") || die;
while (<DIR_LISTING>) {
   print;
}
close (DIR_LISTING);

Answer 2

存档::Zip

require Archive::Zip;
my $zip = Archive::Zip->new($somefile);
for($zip->memberNames()) {
  print "$_\n";
}

Answer 3

CPAN 上有多个模块可用于处理各种存档格式（zip、tar 等），您可能需要的模块是 存档::Zip。