Discussion :

[Ganondorf]

salut à tous,

J'ai une instruction que je trouve trop longue et moche, auriez-vous des idées d'optimisation ?

Code :

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

1
2
3
4
 
if ($admin =~ /[^A-Za-z0-9-\[\]\\\`\^\{\}\_]/ || $admin =~ /^[0-9]/ || length($admin)>32) {
   # ....
}

à plus tard

[Schmorgluck]

Déjà, il y a l'abréviation de classe \w qui peut remplacer [A-Za-z0-9_] et qu'on peut mettre dans une classe. Tant qu'à faire, autant utiliser \d pour remplacer [0-9] également.
Par ailleurs, tu peux fusionner tes deux regex.

Code :

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

1
2
3
if ($admin =~ /^\d|[^-\w\[\]\\\`\^\{\}]/ || length($admin)>32) {
   # ....
}

Ça reste assez moche, il est vrai. Je suis peut-être parti sur une mauvaise piste, il y a sans doute moyen de rendre tout ça plus lisible avec l'option /x.

EDIT : ah, mais oui, en fait, tu échappes des tas de caractères qui n'ont pas de signification spéciale à l'intérieur d'une classe.
Du coup, on peut écrire ça comme ça :

Code :

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

1
2
3
if ($admin =~ /^\d|[^-\w\[\]\\`^{}]/ || length($admin)>32) {
   # ....
}

C'est encore moche, mais c'est déjà plus respirable.

[Ganondorf]

Yop,

merci bien Schmorgluck, en effet c'est déja plus réspirable et c'est exactement ce qu'il me fallait

[crocodanser]

Bonjour,

Quelqu'un peu me dire à quoi sert cette ligne de code et m'expliquer comment elle fonctionne? Je débute en perl et depuis que j'ai commencé, je n'arrête pas de voir des trucs qui ressemblent à ça : /^\d|[^-\w\[\]\\`^{}]/

Avouez quand meme que c'est illisible !! Avez-vous un lien à me fournir avec toutes ces explications?

Ou bien pouvez-vous m'expliquer?

Merci d'avance,

Olivier