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