Rozdělení souborů protokolu gzip bez uložení nekomprimovaných rozdělení na disk

Skript jako je následující může stačit.

#!/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++;
}

Můžete použít split --filter možnost, jak je vysvětleno v návodu, např.

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

Edit:nevím, když --filter možnost byla zavedena, ale podle komentářů nefunguje v core utils 8.4 .