Perl を使用してアーカイブ ファイルを検索する方法

Question

Perl を使用して zip ディレクトリの内容を読み取るための推奨方法は何ですか?

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);