perl 打开gz压缩文件 输出gz压缩文件
打开压缩文件
open(FILE,"gunzip -c $file|") or die "can't open!";
输出压缩文件
open(my $result,"|gzip >file_name.fq.gz");
打开压缩文件
open(FILE,"gunzip -c $file|") or die "can't open!";
输出压缩文件
open(my $result,"|gzip >file_name.fq.gz");