[Perl]Zipファイルを解凍するワンライナー

2013/10/21

Cygwinのunzipコマンドがなぜか動かなかったのでカッとなって書きました。

perl -MArchive::Zip  -e '$zip = Archive::Zip->new(shift); $zip->extractMember($_, "./$_")  for($zip->memberNames()); ' hoge.zip

Perl++

(※Archive::Zipは標準モジュールではないようです）

カテゴリ: Perl