PERL管道读压缩文件

gz格式：

open IN, "gzip -dc $infile |" or die "cannot open $infile file/n";
tgz(tar.gz)格式：
open IN, "tar xf $infile -O|" or die "cannot open $infile file/n";
7zip格式：
open IN, "7za e -so $infile |" or die "cannot open $infile file/n";