Discussion :

[chris -_-]

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

[Lolo78]

Bonjour,

La fonction grep de Perl ne fais pas ce que tu crois sans doute.

Par ailleurs, le motif:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
/ ERROR /

recherche le mot 'ERROR' précédé et suivi d'un espace blanc. Il n'y a sans doute pas (ou pas toujours) d'espace avant et après ERROR dans ton fichier de log

Essaie de remplacer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if (grep(/ ERROR /,$line)) {print RESULT "$line\n";}

par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
print RESULT $line if $line =~ /ERROR/;

Si ça ne marche toujours pas, poste un petit extrait de ton fichier de log.

[chris -_-]

Merci Lolo78,

Pareil

Je ne pense pas que cela vienne de mon if car le script fonctionné avant que je mette des argument en entrée pour ARGV 0 & 1... Avant il y avait des constantes..

Fichier de log

......
09-10-2015 09:54:20 ERROR - MESSAGE - MESSAGE LONG
09-10-2015 09:54:20 ERROR - MESSAGE - MESSAGE LONG
......

Chris

[Lolo78]

Hum, je ne vois pas d'erreur manifeste.

Essaie de tester en remplaçant la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if (grep(/ ERROR /,$line)) {print RESULT "$line\n";}

par quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
print "Je viens de lire la ligne: $line\n";

Cela permettra de savoir si le programme lit bien le fichier en entrée ou non, et le fait bien ligne par ligne, afin de savoir quelle partie du script ne fonctionne pas comme espéré.

[chris -_-]

Good idea...
Je n'ai pas de réflexe de ce genre encore.... Je teste cela et reviens vers toi ...

Merci en tt cas

[Philou67430]

Je changerais aussi cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

while( my $line = $lr->read_line ) {

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

while( defined(my $line = $lr->read_line) ) {

Sinon, la boucle va s'arrêter dès la première ligne "vide" (chaine vide est faux).