Bonjour,

J'ai un tableau contenant des mots, correpondants à des erreurs.

Je souhaiterai ouvrir ce fichier et connaitre pour chaque ligne, si un des éléments du tableau est contenu dans cette ligne. Dans ce cas, on retourne ok, dans l'autre Ko.

Mais ça ne fonctionne pas ?? merci de votre aide !!

Code : 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
 
 
my $FicLog="c:/Perl/batch.log"; 
my @TableauErreur = ("Error", "NULL", "Erreur", "erreur", "fatale");
my $ligne = "";
 
open (FIC, "<$FicLog") || die "Pb d'ouverture possible : $!";
 
 while ($ligne = <FIC> ) 
 
   { 
 
	print ("$ligne\n");
 
	if (($ligne) =~m/@{%TableauErreur}/g)
		{ 
	print "OK" ;
	print "\n" ;
	print "\n" ;
	}
 
   } 
 
close (FIC);