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
Ci-dessous le script..
Code perl : Sélectionner tout - Visualiser dans une fenêtre à part
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 ...
Je pense que cela vient des 2 arguments qui sont saisies mais je bloque...
Merci
V
Partager