Comment effectuer une recherche dans des fichiers archivés avec Perl

Question

Quelle est votre méthode préférée pour lire le contenu des répertoires compressés avec Perl?

Answer 1

Il existe plusieurs modules sur CPAN permettant de travailler avec différents formats d’archives (zip, tar, etc.), celui que vous recherchez probablement est Archive :: Zip .

Answer 2

Archive :: Zip

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

<*>\n";
}

Answer 3

Si vous voulez le contenu d'une archive .tar.gz

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