【CPAN】圧縮フォルダの解凍【Archive-Extract】

-----------------------------------------------------
cpan practice!!
主にcpanｱﾚﾙｷﾞｰ、英語ｱﾚﾙｷﾞｰの克服と
Perl Mongerになるためのお勉強記事です。
環境=active perl 5.12
-----------------------------------------------------
--ここまでﾃﾝﾌﾟﾚ

■Archive-Extract

• CPAN
  
• Active State

圧縮ファイルを解凍するモジュールです。
対応拡張子は、

tar,tgz,gz,Z,zip,bz2,tbz,lzma,xz,txz
と書かれていますね。
ついでにrarも対応していれば嬉しかったんですけどね。 

という訳で例

use Archive::Extract;
$ae = Archive::Extract->new(archive => 'hoge.zip') or die;
$ae->extract(to => 'fuga/');

カレントディレクトリにfugaというフォルダを作成して
その中にhoge.zipの中身を入れてくれるんですね、便利。