perl使用Archive::Tar模块进行文件打包

使用perl的Archive::Tar 模块打包文件夹中的指定文件,输出格式 .tar.gz 。下面是perl代码:

#! /usr/bin/perl
use v5.14;
use File::Find;
use Archive::Tar;

my @filesArry = ();
my $callback = sub {
	push @filesArry, $File::Find::name if -f;
};

find($callback, "./");

my $tar = Archive::Tar->new();

for my $filePath (@filesArry) {
	say $filePath;
	$tar->add_files($filePath);
}

$tar->write('test.tar.gz', COMPRESS_GZIP);

脚本执行完后会生成打包文件 test.tar.gz, 脚本会把当前目录下的所有文件进行打包。对于Archive::Tar 的文档可以使用 perldoc Archive::Tar 查询。
perl使用Archive::Tar模块进行文件打包_第1张图片

你可能感兴趣的:(perl,perl,shell,Linux,git,bash)