Perl gz 读写

PerlIOgzip.pl

#!/usr/bin/perl

use warnings;

use strict;

use PerlIO::gzip;

die "perl $0 <.gz file in> <.gz file out>" unless @ARGV==2;

my($in,$out)=@ARGV;

open IN,"<:gzip","$in" or die $!;

open OUT,">:gzip","$out" or die $!;
while(<IN>){
    chomp;
    my @info = split //;

    print (join "\n",@info);
    print OUT "$_";
}
close IN;
close OUT;