PerlIO模块 读写gz文件

use PerlIO::gzip;   #Perl  IO ，无需安装自带
#读
open FQ,"<:gzip",file1.gz||die"$!";
写
open FN,">:gzip",file2.gz||die"$!";

命令行 读取gz文件

就是通过 zcat ,less 等支持gz 文件的命令 读取 gz 文件的内容；

my $cmd="zcat  xxx.gz "
IN=open(my $fh, $cmd."|") ;
#这里注意有个 点"."，perl 中是连接符，用来连接字符串， 后面 字符串 "|" 其实就是linux 里面的管道命令
while(<IN>){
print $_;
}

参考自：
Perl语言读取gz压缩文件
perl 读取阻塞命令行的结果