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

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

7zip格式文件

这个可以直接用

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

use lib "/libPath";use PerliO::gzip;

2)在用的时候：

open FI"<:gzip""$fi";open FO">:gzip""$fo";

3. 用 file::Package;

#!/usr/bin/perl -wuse strict; use filePackage; my $uut='TIE::Gzip';$fp'file::Package'->load_package($uut; tIE *GZIP$gzip=\*GZIP"> test.gz"while($line=<>){chomp print"$line\n"}close *OUT$out\*OUTprint $out "I want to kNow more!\n";

以上是内存溢出为你收集整理的Perl 读写 .gz .tgz 等压缩文件全部内容，希望文章能够帮你解决Perl 读写 .gz .tgz 等压缩文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。