1. 使用PERL直接读取压缩文件 use pipe .gz格式文件 1 open(FIN,"gzip -dc $infilename|") or die ("can not open $infilename/n"); .tgz(.tar.gz)格式文件 1 open(FIN