Script qui scrute des log
Bonjour,
Etant nouveau dans le monde de perl je viens chercher de l'aide sur ce forum..
PI, j'ai essayer de fouiller sur le net mais sans succès...
Je cherche à scruter un fichier de log (que je passe en argument) et je cherche le mot ERROR pour créer un second fichier (que je passe en second argument) qui contient toutes les lignes avec le mot ERROR dedans... Bien evidement ce script va évoluer au fur et a mesure donc je pense que je vais passer un peu de tps avec vous messieurs :lol:
Ci-dessous le script..
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| #!/usr/bin/perl -W
use Carp;
use strict;
use File::LogReader;
#argument 1 fichier de log a vérifier
my $filename = $ARGV[0];
print "arg 1: $filename\n";
#fichier resultat
my $fileresultname = $ARGV[1];
print "arg 2: $fileresultname\n";
#ouverture du fichier pour ecriture
open(RESULT,">$fileresultname") || die ("Erreur de creation du fichier $fileresultname");
my $lr = File::LogReader->new( filename => $filename );
while( my $line = $lr->read_line ) {
if (grep(/ ERROR /,$line)) {print RESULT "$line\n";}
}
$lr->commit;
close(RESULT); |
Les 2 arguments sont bien saisies, le nouveau fichier est bien crée mais il est vide.. Je ne vois pas pk...
Oui la chaine de caractére " ERROR " est bien présente dans mon fichier d'origine ... :roll:
Je pense que cela vient des 2 arguments qui sont saisies mais je bloque...
Merci
V