tableau et fichier

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:

---

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);

---

On ne peut pas faire un "match" d'expression rationnelle avec tout le tableau d'un coup ...

Il faut, soit construire une expression rationnelle correspondant à tous les éléments du tableau :

Code:

---

1 2	$regexp = join (/|/, %TableauErreur); if ( $ligne =~m/$regexp/g ) ...

---

Ou bien tester successivement toutes les valeurs :

Code:

---

if (grep { $ligne =~ m/$_/g } %TableauErreur) ...

---

Je n'ai pas testé, mais cela ne saurait être très loin de deux solutions acceptables.

Il doit y en avoir d'autres ;)