读取和编写 gzip 压缩文件

编写一个 gzip 压缩文件

要编写一个 gzip 文件,use 模块 IO::Compress::Gzip 并通过为所需的输出文件创建 IO::Compress::Gzip 的新实例来创建文件句柄:

use strict;
use warnings;
use open qw( :encoding(UTF-8) :std ); # Make UTF-8 default encoding

use IO::Compress::Gzip;

my $fh_out = IO::Compress::Gzip->new("hello.txt.gz");

print $fh_out "Hello World!\n";

close $fh_out;

use IO::Compress::Gzip;

从 gzip 压缩文件中读取

要从 gzip 文件中读取,请通过模块 IO::Uncompress::Gunzip 来创建文件句柄,然后通过为输入文件创建 IO::Uncompress::Gunzip 的新实例来创建文件句柄:

#!/bin/env perl
use strict;
use warnings;
use open qw( :encoding(UTF-8) :std ); # Make UTF-8 default encoding

use IO::Uncompress::Gunzip;

my $fh_in = IO::Uncompress::Gunzip->new("hello.txt.gz");

my $line = readline $fh_in;

print $line;