由于我们的项目的测试平台很多,包括windows,linux平台。linux提供了一个解压的unzip命令,但是windows下比较麻烦,win 2000下面没有提供任何命令用来解压文件,xp中提供unzip这个命令,但是在vista中又没有这个命令了。
这就很麻烦,不能单纯依靠操作系统提供的命令来解压文件,所以我写了一个脚本用来处理这种需要。
在linux下我就不写了,只要用unzip命令就可以了,很简单。
下面主要描述解决windows下的问题的模块。
perl中提供了一个Archive包,用来解决解压,压缩文件的问题。
我只是简单的应用了一下这个包的解压功能。
这个脚本主要就是将指定的压缩文件 解压到指定目录,如果不指定解压目录,则解压到当前目录。
这样当我们在各个平台上解压文件的时候只要调用该脚本就可以了,只要提供路径就 足够了。而不要根据系统而去写代码。
:-D。
这就很麻烦,不能单纯依靠操作系统提供的命令来解压文件,所以我写了一个脚本用来处理这种需要。
在linux下我就不写了,只要用unzip命令就可以了,很简单。
下面主要描述解决windows下的问题的模块。
perl中提供了一个Archive包,用来解决解压,压缩文件的问题。
我只是简单的应用了一下这个包的解压功能。
- #! /usr/bin/perl -w
- my ($file,$targetDir) = @ARGV;
- if (!defined($targetDir)){
- $targetDir = ".";
- print "unzip $file to current dir.../n";
- }else{
- print "unzip $file to $targetDir.../n";
- }
- use Archive::Extract;
- my $ar = Archive::Extract->new( archive => $file);
- my $ok = $ar->extract( to => $targetDir) or die;
这样当我们在各个平台上解压文件的时候只要调用该脚本就可以了,只要提供路径就 足够了。而不要根据系统而去写代码。
:-D。