Discussion :

[lexav]

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 :

Code :

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

if($ligne !~ /\d{4,5}\,.*\,.*\,.*\,.*\,.*\,.*/s) {printf(ERREURS "$ligne\n"); $err=1; next;}

et voilà ce que j'ai essayé :

Code :

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

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...

[nyal]

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.

La regexp marche avec le format de ligne suivant :
az345daslplsda sdalpsd[

Code :

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

1
2
3
4
 
if (!($ligne =~ /\w{2}\d{3}.*/)) {
    print "Error\n";
}

J'espere que ca vous convient.

[lexav]

ça marche très bien, merci beaucoup de cette aide rapide !!