perl實現跨平台解壓檔案

由於我們的項目的測試平台很多，包括windows，linux平台。linux提供了一個解壓的unzip命令，但是windows下比較麻煩，win 2000下面沒有提供任何命令用來解壓檔案，xp中提供unzip這個命令，但是在vista中又沒有這個命令了。

這就很麻煩，不能單純依靠作業系統提供的命令來解壓檔案，所以我寫了一個指令碼用來處理這種需要。

在linux下我就不寫了，只要用unzip命令就可以了，很簡單。

下面主要描述解決windows下的問題的模組。
perl中提供了一個Archive包，用來解決解壓，壓縮檔的問題。

我只是簡單的應用了一下這個包的解壓功能。

1. #! /usr/bin/perl -w
3. my ($file,$targetDir) = @ARGV;
4. if (!defined($targetDir)){
5.     $targetDir = ".";
6.     print "unzip $file to current dir.../n";
7. }else{
8.     print "unzip $file to $targetDir.../n";
9. }
10. use Archive::Extract;
11. my $ar = Archive::Extract->new( archive => $file);
12. my $ok = $ar->extract( to => $targetDir) or die;

這個指令碼主要就是將指定的壓縮檔 解壓到指定目錄，如果不指定解壓目錄，則解壓到目前的目錄。

這樣當我們在各個平台上解壓檔案的時候只要調用該指令碼就可以了，只要提供路徑就 足夠了。而不要根據系統而去寫代碼。

:-D。