gzipファイルの入出力 (module)Compress-Zlib

gzip で圧縮されたファイルに対する読込/書込みを行う

(read)
sample.txt を gzip で圧縮した sample.txt.gz を open/read する
----
use Compress::Zlib;

$gz = gzopen("sample.txt.gz", "rb");
while ($gz->gzreadline($line)) {
  print $line, "\n";
}
$gz->gzclose;
----
まぁ、open(F, "/usr/bin/gzip -dc sample.txt.gz | ") で <F> を読んでもいいけど :p


(write)
sample.txt.gz へ、gzip 圧縮されたデータを書き込む
----
use Compress::Zlib;

$gz = gzopen("sample.txt.gz", "wb");
$gz->gzwrite($data);
$gz->gzclose;
----
まぁ、open(W, "| gzip -c - > sample.txt.gz") で W に書き込んでもいいけど :p