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

发布时间：2020-12-15 21:02:33 所属栏目：大数据来源：网络整理

导读：原文来自：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)格式文件 "tar -

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

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

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

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

"tar -xf $infilename -o|";

7zip格式文件

"7za e -so $infilename|";

这个可以直接用

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;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

#!/usr/bin/perl -w
use strict;
?
use FilePackage;
?
my $uut='Tie::Gzip';
$fp'File::Package'->load_package($uut;
?
tie *GZIP$gzip=*GZIP"> test.gz"while($line=<>){
chomp print"$linen"}
close *OUT$out*OUTprint $out "I want to know more!n"
;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!