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 :
1 2
| $regexp = join (/|/, %TableauErreur);
if ( $ligne =~m/$regexp/g ) ... |
Ou bien tester successivement toutes les valeurs :
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
Partager