Bonjour,
Je n'ai jamais pratiqué PERL, mais je me retrouve avec un bout de code à modifier !! J'ai essayé plein de trucs mais ça ne marche pas...
Mon problème : je dois vérifier que les lignes de mon fichier se composent de 2 lettres puis 3 chiffres puis du texte, alors qu'auparavant les lignes se composaient de 1 ou 2 chiffres puis 3 chifres puis du texte.
Voilà la ligne de code d'origine :
if($ligne !~ /\d{4,5}\,.*\,.*\,.*\,.*\,.*\,.*/s) {printf(ERREURS "$ligne\n"); $err=1; next;}
et voilà ce que j'ai essayé :
if($ligne !~ /.*\,\d{3}\,.*\,.*\,.*\,.*\,.*\,.*/s) {printf(ERREURS "$ligne\n"); $err=1; next;}
mais ça marche pas puisque ça écrit dans mon fichier "ERREURS"
donc si quelqu'un peut me dire comment on fait...
Partager