Perl_读入输出gz压缩文件_gzip_gunzip

前端之家收集整理的这篇文章主要介绍了Perl_读入输出gz压缩文件_gzip_gunzip前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

Perl_读入输出gz压缩文件_gzip_gunzip


my $fil="/dir/fil.gz";
open IN,"gunzip -c $fil |" or die $!;
open IN,"gzip -dc $fil |" or die $!;

my $out="/dir/out.gz";
open OUT,"| gzip >$out" or die $!;

猜你在找的Perl相关文章