• # Avec perl et File::Tail

    Posté par . En réponse au message Lire des logs au fur et à mesure. Évalué à 3.

    Avec perl et File::Tail

    resetafter permet de se reconnecter après rotation des log,

    il faut juste écrire le parser

    Exemple : 

    #!/usr/bin/perl
use strict;
use warnings;
use File::Tail;
my $file = $ARGV[0];
die $! if ! -f $file;
my $logfile=File::Tail->new(name => $file, resetafter => 300);
while (defined(my $l=$logfile->read)) {
 parse_line($l);
}

    ça tourne tout seul pendant des mois