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_读入输出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 $!;