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 $_;
}
