perl 打开gz压缩文件 输出gz压缩文件

打开压缩文件

open(FILE,"gunzip -c $file|") or die "can't open!";

输出压缩文件

open(my $result,"|gzip >file_name.fq.gz");