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

Cygwinのunzipコマンドがなぜか動かなかったのでカッとなって書きました。
perl -MArchive::Zip  -e '$zip = Archive::Zip->new(shift); $zip->extractMember($_, "./$_")  for($zip->memberNames()); ' hoge.zip
Perl++

(※Archive::Zipは標準モジュールではないようです)
参考
http://d.hatena.ne.jp/chaichanPaPa/20090211
[Perl]ディレクトリをワンライナーでZip圧縮する方法
カテゴリ:

人気記事