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。