Как выполнить поиск по архивированным файлам с помощью Perl

Question

Какой ваш предпочтительный метод чтения содержимого архивированных каталогов с помощью Perl?

Answer 1

В CPAN есть несколько модулей для работы с различными форматами архивов (zip, tar и т.д.), Тот, который вам, вероятно, нужен, это Архив::Zip.

Answer 2

Архив::Zip

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

Answer 3

Если вы хотите, чтобы содержимое .архив tar.gz

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