岩家ぶろぐ

もっとシンプルなやり方がありそうですが，個人的に使ったことがなかったのでメモ．

zipファイルの中身を確認するには，Archive::Zip モジュールの memberNames メソッドを用いればよさげです．

このメソッドは，指定した zipファイルに格納されているファイル （やディレクトリ？） 名をリストで返してくれるので，あとはこのリストをどうこうすれば OK です．

以下，第 1引数に zipファイルを指定することで，その内容を表示するスクリプトです．

1
2
3
4
5
6
7
8
9

use strict;
use warnings;
 
use Archive::Zip;
 
$ARGV[0] || exit;
my $zip = Archive::Zip->new( $ARGV[0] );
print join( "n", $zip->memberNames ) . "n";
__END__

参考

• Archive::Zip – Provide an interface to ZIP archive files. – search.cpan.org
• :: Cepheid :: – Archive-ZipでファイルをZipに圧縮する

こちらもあわせてどうぞ