Perl语言读取gz压缩文件

use PerlIO::gzip;   #Perl  IO

读写gz文件

open FQ,"<:gzip",file1.gz||die"$!";
open FN,">:gzip",file2.gz||die"$!";

 

合并gz文件

zcat file1.gz file2.gz|gzip >file3.gz