怎么用perl打开/处理.gz压缩文件

 我来答
福喜900
推荐于2017-09-02 · TA获得超过6.1万个赞
知道大有可为答主
回答量:1.1万
采纳率:0%
帮助的人:1亿
展开全部
最近想使用perl 对文件进行压缩,但是百度了好久,方法N多,但是都只言片语。这里总结几个自己搜索到的结果。
主要有两种方法:
1、调用系统的解压缩命令
在linux 下调用tar 命令的举例如下:
tar_name = "tar_example".".tar.gz";
$cmd = "tar -cvfz $tar_name test1.pl test2.pl";
system($cmd);
或者
tar xvfz $_` for @ARGV;
使用PERL直接读取压缩文件 use pipe
.gz格式文件
open(FIN,"gzip -dc $infilename|") or die ("can not open $infilename\n");
.tgz(.tar.gz)格式文件
open(FIN,"tar -xf $infilename -o|") or die ("can not open $infilename\n");
7zip格式文件
open(FIN,"7za e -so $infilename|") or die ("can not open $infilename\n");
2、使用perl 提供的解压缩模块
但是由于操作系统OS各异,实现起来还是有区别的。由于不同操作系统支持以及安装的模块包不同,所以需要区别对待。
目前知道的模块有Archive::Tar、Compress::Zlib、Archive::Zip、IO::Compress::Gzip、PerlIO::gzip
关于各模块的使用帮助可以参与好似有命令perldoc <模块名> 进行查询
如果为了可移植性,可以用Archive::Tar处理tgz文件,用IO::Zlib处理gz文件。
由于Archive::Tar需要把整个包读入内存,资源消耗大且很慢,只能用于较小的tgz文件。
目前我的程序是在windows下面运行的。
最后我的做法是,
(1)用Archive::Tar处理.tar, .tar.gz, .tgz文件。
(2)用Compress::Zlib处理.gz文件。
(3)用Archive::Zip处理.zip文件.
linux 下使用
IO::Compress::Gzip,但是这个模块有个小问题 它不能把多个文件同时压缩在一个文件里面 并且压缩前和压缩后的文件名得相同。
Archive::Tar; 的使用例子:
#!/usr/bin/perl
use Archive::Tar;
my @files = <*>;
my $target = 'my.tgz';
my $tar = Archive::Tar->new();
$tar->add_files(@files);
$tar->write($target, COMPRESS_GZIP);
Archive::Zip的使用例子:
#!/usr/bin/perl
use strict;
use warnings;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();
$zip->addFile("/home/admin/simple.pl","simples.pl");
$zip->addTree("/home/admin","admins");
unless ( $zip->writeToFileNamed('/usr/zip.zip') == AZ_OK )
{
print "失败!\n";
}
else
{
print "成功!\n";
}
权限不够的话,可以安装到自己家目录下,比如使用Local::lib 安装
用PerlIO包的用法举例:
1)在*.pl前加上
use lib "/libPath";
use PerlIO::gzip;
2)在用的时候:
open FI, "<:gzip", "$fi";
open FO, ">:gzip", "$fo";
3. 用 File::Package;
#!/usr/bin/perl -w
use strict;
use File::Package;

my $uut='Tie::Gzip';
my $fp='File::Package';
$fp->load_package($uut);

tie *GZIP,'Tie::Gzip';
my $gzip=\*GZIP;
open($gzip,"> test.gz");

while(my $line=<$gzip>){
chomp $line;
print"$line\n";
}
close $gzip;

tie *OUT,'Tie::Gzip';
my $out=\*OUT;
open($out,"> test.gz");
print $out "I want to know more!\n"
close $out;
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式