Comment puis-je surveiller un fichier journal et insérer des horodatages, en utilisant Perl?

Question

J'ai une application qui génère des journaux en mode ajout, mais les journaux ne sont pas horodatés.

Est-il possible d'utiliser tail -f avec une option, ou un script perl pour surveiller les écritures dans ce fichier et les préfixer avec un horodatage? Étant donné que je cours Windows sans Cygwin, pourrais-je éviter d'utiliser bash ou tout autre shell Unix?

Answer 1

si vous utilisez la queue GNU, vous devriez être en mesure d'utiliser GNU gawk.

C:\test>tail -F file | gawk.exe "{s=systime(); print strftime(\"%Y-%m-%d:%H:%M:%S\",s),$0}" 

Answer 2

Vous pouvez utiliser une boucle while:

tail -f logfile | while read line; 
do 
    echo $(date) $line; 
done 

Implique en cours Date pour chaque ligne bien. Vous pouvez utiliser les options de sortie de format de la commande date pour obtenir le format d'horodatage souhaité.

I équivalent Perl très basique serait (script.pl):

while (<>) { 
    my $date = scalar localtime; 
    print $date . " " . $_; 
} 

tail -f logfile | perl script.pl 

Answer 3

Peut-être pourriez-vous utiliser un script Perl avec File :: Tail et DateTime?

use File::Tail; 
use DateTime; 
my $ref=tie *FH,"File::Tail",(name=>$ARGV[0]); 
while (<FH>) { 
    my $dt = DateTime->now(); 
    print "[", $dt->dmy(), " ",$dt->hms(),"] $_"; 
} 

Answer 4

Il ressemble le module File::Tail a été conçu spécifiquement pour la lecture dans des fichiers journaux ajoutées.

Cela peut valoir le coup d'oeil.