Datei einlesen
jojo
- perl
0 Cruz
hallo,
ich habe da ein perl-skript, das die zeilen einer log-datei nach bestimmten Sachen durchsucht (jede Menge regexp-krams), und gegebenfalls eine email
zusammenbaut/verschickt, falls bestimmte Sachen erfüllt sind (ist das logfile einer firewall)....
Problem:
wie kann ich dieses skript dazu bringen, dieses Logfile nach neuen zeilen zu durchsuchen, und bei neuen Zeilen dann die ganzen regexp-vergleiche zu durchlaufen (so in der Art tail -f)??
bisher lasse ich noch logsurfer laufen, und dieser ruft bei jeder neuen Zeile das skript auf, is aber ganz schön langsam, da ich zwei Definitionslisten so bei jedem Start des
Skriptes neu einlesen muß....
weiß jemand weiter???
Hallo jojo,
villeicht kannst du ja tatsächlich tail -f dafür verwenden und den Output einfach in ein Script pipen:
tail -f logname.log perl script.pl
oder vielleicht auch aus einem Script aus mit:
$ret = system(tail -f logname.log)
probier einfach mal ein bisschen damit rum.
Gruß
Cruz