AIX下生成zip文件

2019独角兽企业重金招聘Python工程师标准>>>

AIX一般不提供zip/pkzip等zip工具。很多时候自行安装相应工具也不是可行的选项，这个时候有两个替代方案可选:

1. 使用JRE/JDK 中的jar工具，本文不详述。
2. 写一个Perl脚本，使用Perl语言的IO::Compress::Zip库。本人条件所限，没有确认AIX在默认情况下Perl是否默认会安装此库，但是目前接触到的安装Perl语言的AIX都有此库。

下面是本人实现的一个简单的压缩文件夹的Perl脚本:

use strict;
use warnings;
use IO::Compress::Zip qw(zip $ZipError);

my $num_args = $#ARGV + 1;

if($num_args < 1){
	print "\nUsage: name.pl input_dir out_zip\n";
	exit -1;
}

my $input_dir=$ARGV[0];
my $out_zip=$ARGV[1];

#IO:Compress:Zip只能处理当前文件夹，因此需要先切换工作目录。
chdir($input_dir);

#此种实现方式，当前目录下不能有文件夹，否则会报错。待改进。
my @files = <*>;

zip \@files => $out_zip
	or die "zip failed: $ZipError\n";

如果一台AIX上既无JAVA、又无Perl，那可能只能老老实实改用tar包了。

转载于:https://my.oschina.net/oymyisme/blog/598599