unzip された分割をディスクに保存せずに gzip されたログファイルを分割する

次のようなスクリプトで十分です。

#!/usr/bin/perl
use PerlIO::gzip;

$filename = 'out';
$limit = 500000;

$fileno = 1;
$line = 0;

while (<>) {
    if (!$fh || $line >= $limit) { 
        open $fh, '>:gzip', "$filename_$fileno"; 
        $fileno++;
        $line = 0; 
    }
    print $fh $_; $line++;
}

split --filter を使用できます マニュアルで説明されているオプションなど

zcat biglogfile.gz | split -l500000 --filter='gzip > $FILE.gz'

編集:--filter の場合は認識しません オプションが導入されましたが、コメントによると、core utils 8.4 では機能しません .