Perl 读写 .gz .tgz 等压缩文件

最新推荐文章于 2022-11-22 13:15:00 发布

diana_cherry

最新推荐文章于 2022-11-22 13:15:00 发布

阅读量9.7k

点赞数

分类专栏： perl

perl 专栏收录该内容

17 篇文章 0 订阅

订阅专栏

原文来自：http://qyiyunso.blog.163.com/blog/static/350776862010111511336701/

1. 使用PERL直接读取压缩文件 use pipe
.gz格式文件

1	open(FIN,"gzip -dc $infilename\|") or die ("can not open $infilename\n");

.tgz(.tar.gz)格式文件

1	open(FIN,"tar -xf $infilename -o\|") or die ("can not open $infilename\n");

7zip格式文件

1	open(FIN,"7za e -so $infilename\|") or die ("can not open $infilename\n");

这个可以直接用

2. 用PerlIO包
1)在*.pl前加上

1 2	use lib "/libPath"; use PerlIO::gzip;

2)在用的时候：

1 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;