zipファイルの一覧

---

　Archive::Zipモジュールを使います。

use strict;
use Archive::Zip;
use POSIX 'strftime';

my $zip_file = 'test.zip';

my $zip = Archive::Zip->new();
die unless $zip->read($zip_file) == Archive::Zip::AZ_OK;

my @members = $zip->members();
foreach my $member (@members) {
	printf "%o %s %7d %7d %s %s\n",
		$member->unixFileAttributes,
		$member->crc32String,
		$member->compressedSize,
		$member->uncompressedSize,
		strftime('%Y-%m-%d %H:%M:%S', localtime $member->lastModTime),
		$member->fileName;
}

---

関連項目

・zipファイルの作成
・zipファイルの展開
・tarファイルの一覧