Un script comme celui-ci peut suffire.
#!/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++;
}
Vous pouvez utiliser le split --filter
option comme expliqué dans le manuel, par exemple
zcat biglogfile.gz | split -l500000 --filter='gzip > $FILE.gz'
Edit :pas au courant quand --filter
l'option a été introduite mais selon les commentaires, elle ne fonctionne pas dans core utils 8.4
.