Archive::Zip - ZIPファイルの解凍

#!/usr/bin/perl
use Archive::Zip;

#ファイル名を指定
$fileName = 'test.zip';

#オブジェクトを作成
my $zip = Archive::Zip->new();

#ファイルの読み込みに失敗したら強制終了
die 'read error' unless $zip->read($fileName) == AZ_OK;

#ファイルの数はnumberofMembersで取得できます
print "Extracting " . $zip->numberOfMembers($fileName) . " files from $fileName\n";

#ファイルの一覧を取得
@members = $zip->members();

foreach (@members) {
　　　#ファイル名はfileNameにて取得できます。
　　　print $_->fileName() . "\n";
　　　my $name = $_->fileName();
　　　
　　　
　　　if($name =~ /\.jpg$|\.jpeg$/i){
　　　　　　#ファイルをアーカイブから取り出すにはextractMemberもしくは以下のextractMemberWithoutPathsを使用します。
　　　　　　$zip->extractMemberWithoutPaths($name);
　　　}
}