Discussion :

[Tonytony]

bon voilà je cherche à créer une regexp vérifiant si une chaine contient

7 a 12 caracteres
avec au moins
1 majuscule
1 minuscule
1 chiffre
1car special

donc j'ai pensé à ça

'[[A-Z]+[a-z]+[0-9]+[\#\[\"\'\é\@]+]{7,12}

je n'ai pas mis tout les caractéres spéciaux mais c'est pour lexemple

je pense que les + a l'intérieur des [] englobant les autres sa marche pas

enfin je vois pas d'ou vient mon erreur

[djibril]

voici un code à l'arrache qu'on peut arranger

Code :

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

1
2
3
4
5
6
7
8
my $nombre = 'uyUyuy1yuy@y';
 
if($nombre =~ /^.{7,12}$/  and  $nombre =~ /\d/ and $nombre =~ /[a-z]/ and $nombre =~ /[A-Z]/  and $nombre =~ /[é\@]/ ) {
    print "$nombre : OK\n";          
}
else {
  print "$nombre : PAS OK\n";
}

[Tonytony]

ok c'est ce que jai fait hier avant de débaucher

je me disais aussi que tout mettre dans une seule ça ne marcherait pas

et sinon jai un second problème

mes caractéres spéciaux ne sont pas échappables


je souhaites mettre tout les caractéres spéciaux en test

#~{[|`^@]} .............

donc je les échappe avec antislash \

le truc c'est que certain ne passe pas et donc erreur au bout
y'a t'il donc un raccourci permettant de dire

"moi vouloir tout les Char spéciaux"



EDIT

l'utilisation de ceci est il juste pour mes caractéres spéciaux

[\w_]


le \w désignant les caractéres alphanum et le _

[djibril]

voilà

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
my $nombre = 'uyUyuy1yuy@y';
my $caractere_speciaux = quotemeta('&{}()èù%*µ@'); # caracteres speciaux
if(  $nombre =~ /^.{7,12}$/  and # contient entre 7 et 12 caracteres 
     $nombre =~ /\d/         and # contient un chiffre 
     $nombre =~ /[a-z]/      and # contient une lettre minuscule
     $nombre =~ /[A-Z]/      and # contient une lettre majuscule 
     $nombre =~ /[$caractere_speciaux]/  # contient un caractere special
     ) {
    print "$nombre : OK\n";          
}
else {
  print "$nombre : PAS OK\n";
}

[Tonytony]

ok merci

juste pour savoir le \w marche t'il ou non pour les car spéciaux

je n'ai pas de possibilités de test la c'est pour ça que je demande

[djibril]

pour tes caracteres speciaux, tu les mets ainsi dans le code que je t'ai filé

Code :

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

my $caractere_speciaux = quotemeta('&{}()èù%*µ@'); # caracteres speciaux

\w ne reconnait que les lettres de l'alphabet de a à z, plus le _ ([a-zA-Z0-9_), donc il ne reconnaitra pas les @ ou é, etc etc

[lacryl]

Tony,

Tu peux effectuer le test en une seule regexp en utilisant les expressions de longueur nulle.
Donc non pas rechercher l'expression <des minuscules, et des majuscules, et des chiffres, et des caractères spéciaux>, mais en cherchant "quoi que ce soit" qui soit suivi par <tout ça>. Ca permet alors de s'affranchir de l'ordre d'apparition de chacun de ces sous-expressions dans ta chaîne.

Par exemple:

Code :

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

if ($s =~ m/(?=.*[a-z])(?=.*[A-Z])(?=.*[0-9])(?=.*[#\(\)éàç])/) { print "Matches!"; }

(caractères spéciaux à revoir)

[djibril]

Tony,

Tu peux effectuer le test en une seule regexp en utilisant les expressions de longueur nulle.
Donc non pas rechercher l'expression <des minuscules, et des majuscules, et des chiffres, et des caractères spéciaux>, mais en cherchant "quoi que ce soit" qui soit suivi par <tout ça>. Ca permet alors de s'affranchir de l'ordre d'apparition de chacun de ces sous-expressions dans ta chaîne.

Par exemple:

Code :

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

if ($s =~ m/(?=.*[a-z])(?=.*[A-Z])(?=.*[0-9])(?=.*[#\(\)éàç])/) { print "Matches!"; }

(caractères spéciaux à revoir)

ta regex ne fonctionne pas

Code :

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

1
2
my $nombre = 'uyUyuy1yuy@y';
if ($nombre =~ m/(?=.*[a-z])(?=.*[A-Z])(?=.*[0-9])(?=.*[#\(\)\@éàç])/) { print "Matches!"; }

[lacryl]

La regexp fonctionne, c'est le traitement du @ qui n'est pas bon (mais comme je l'avais noté, je n'ai pas du tout regardé le traitement des caractères spéciaux). Remplace le "@" par une "(" ou un "é" et ça marchera

Cette proposition n'avait pas pour but d'être la finalle, mais de donner une solution en une seule regexp.

Modifié:

En fait je viens de refaire le test et ce code fonctionne même pour le '@'...

Code :

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

1
2
3
4
#!c:\Perl\bin\perl -w
 
my $nombre = 'uyUyuy1yuy@y' ;
if ($nombre =~ m/(?=.*[a-z])(?=.*[A-Z])(?=.*[0-9])(?=.*[#\(\)\@éàç])/) { print "Matches!"; }