perl 打开和输出gz压缩文件【更新perl打开的时候自动判断是否压缩文件的模块】
open IN,“gzip -dc 文件名 |”
open OUT, "| gzip >$out_f.gz" or die $!;
自动判断是否压缩文件,例子:
use PerlIO::gzip;
open FQ1, "<:gzip(autopop)", "$ARGV[0]" || die "Cannot open $ARGV[0]\n";
利用管道输出文件自动生成压缩文件:
perl a.pl | gzip > out.gz