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