Wie durch archivierten Dateien mit Perl suchen

Question

Was ist Ihre bevorzugte Methode für die mit Perl durch den Inhalt gezippt Verzeichnisse zu lesen?

Answer 1

Es gibt mehrere Module auf CPAN für mit verschiedenen Archivformaten arbeiten (zip, tar, etc.), die dem von Ihnen sind wahrscheinlich nachdem es Archive :: Zip .

Answer 2

Archive :: Zip

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

Answer 3

Wenn Sie den Inhalt eines tar.gz-Archiv mögen

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