Archive::Zip - ZIPファイルの解凍[Perl] PerlでZIPファイルを解凍するにはArchive::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(); for
