Perl 读写 .gz .tgz 等压缩文件

1

open(FIN,"gzip -dc $infilename|") or die ("can not open $infilename/n");

1

open(FIN,"tar -xf $infilename -o|") or die ("can not open $infilename/n");

1

open(FIN,"7za e -so $infilename|") or die ("can not open $infilename/n");

12

use lib "/libPath";
use PerlIO::gzip;

12

open FI, "<:gzip", "$fi";
open FO, ">:gzip", "$fo";

12
3
4
5
6
7
8
9
10
1112
13
14
15
16
17
18
19
20
2122
23
24

#!/usr/bin/perl -w
use strict;

use File::Package;

my $uut='Tie::Gzip';
my $fp='File::Package';
$fp->load_package($uut);

tie *GZIP,'Tie::Gzip';
my $gzip=/*GZIP;
open($gzip,"> test.gz");

while(my $line=<$gzip>){
chomp $line;
print"$line/n";
}
close $gzip;

tie *OUT,'Tie::Gzip';
my $out=/*OUT;
open($out,"> test.gz");
print $out "I want to know more!/n"
close $out;