如何使用Perl搜索存档文件

CPAN上有几个模块用于处理各种存档格式(zip、tar等),您可能需要的是 Archive::Zip .

档案::拉链

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

如果需要.tar.gz存档的内容

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