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 $!;