使用PERL直接读取压缩文件
.gz格式文件
open(FIN,"gzip -dc $infilename|") or die ("can not open $infilename\n");
.tgz(.tar.gz)格式文件
open(FIN,"tar -xf $infilename -o|") or die ("can not open $infilename\n");
7zip格式文件
open(FIN,"7za e -so $infilename|") or die ("can not open $infilename\n");
阅读(5441) | 评论(1) | 转发(0) |
