gzipで圧縮されたファイルを一行づつ読む。

めもめも

#!/usr/bin/perl

use strict;
use warnings;
use IO::Zlib;

my $fh = IO::Zlib->new();
if ($fh->open("test.txt.gz", "rb")) {	
	while (my $line = $fh->getline()){		
		print {*STDOUT} $line;
	}
	$fh->close();
}

Perl云々よりUnixの使い方を学んでるとこ。

入門 Unix for Mac OS X 第4版

これ見ながらこつこつやってます。