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
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
转载于:https://www.cnblogs.com/xlij1205/p/10782388.html