[REGEXP] problème de test

Version imprimable

15/04/2008, 15h57
Tonytony

[REGEXP] problème de test

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

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

Code:

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";
}

16/04/2008, 08h04
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 _

voilà

Code:

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";
}

16/04/2008, 09h42
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
16/04/2008, 10h02
djibril

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

Code:

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
16/04/2008, 10h32
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:

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

(caractères spéciaux à revoir)
16/04/2008, 10h36
djibril
Citation:

Envoyé par 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:

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

(caractères spéciaux à revoir)

ta regex ne fonctionne pas :aie:
Code:

1 2 my $nombre = 'uyUyuy1yuy@y'; if ($nombre =~ m/(?=.*[a-z])(?=.*[A-Z])(?=.*[0-9])(?=.*[#\@éàç])/) { print "Matches!"; }
16/04/2008, 10h43
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:

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