讀取和編寫 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;