Discussion :

[dewdew]

Bonjour à tous,

j'ai deux chaines de caractères à comparer

Code :

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

1
2
3
4
5
6
7
 
if($chaine1 =~ $chaine2 or $chaine1 =~ /^$chaine2[0-9]{1,2,3}$/ ) {
return 1;
}
else {
return 0;
}

pour la première condition ca marche mais pour

Code :

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

1
2
 
$chaine1 =~ /^$chaine2[0-9]{1,2,3}$/

ça ne marche pas est-ce qu'il y a un problème d'écriture ?

merci d'avance

[Woufeil]

Bonjour,

Dis nous ce que tu veux faire comme comparaison, et on te dira comment la faire
A priori, le {1,2,3} me semble pour le moins étrange...

[dewdew]

bonjour, moi je dois comparer deux identifiants qui ont la forme suivante :
AAAAA(999) pour satifaire ma condition si par exemple $chaine1 = aaaaa $chaine2 ne peut prendre que aaaaa ou aaaaa suivi de 0 ou 1 ou 2ou 3 caractères 0-9 pour le moment la condition test seulement l'égalité et pour :
/^$chaine2[0-9]{1,2,3}$/
je ne sais pas si l'ecriture est bonne


j'espère être clair

merci

[Jasmine80]

Tu n'as pas repris 0 chiffre suivant les caractères. Pour [0-9] tu peux utiliser \d

Code :

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

if ($chaine2 =~ /$chaine\d{0,3}/)

{0,3} signifie trouvé entre 0 et 3 fois


Jasmine,

[dewdew]

Bonjour,
merci jasmine , mais quand j'affecte à chaine1 = aaaaa et à chaine2 =aaaaa99999 donc 2 caractères de plus il accepte et il me retourne 1 !
est-ce que or est utilisable en perl ou pour le "ou" on fait || ?

[Deimos_]

Salut,

En effet il faut rajouter les délimiteurs de début et fin de chaine :

Code :

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

if ($chaine2 =~ /^$chaine\d{0,3}$/)

Sinon en Perl on peut mettre or ou ||, les deux sont acceptés ; tâche tout de même de ne pas les mélanger, et si tu utilises "or", utilise également "and" à la place de &&, etc.

[dewdew]

merci ça ne marche pas tjr voici ma fonction qui doit retourner 1 si chaine1 = chaine2 ou chaine1 =chaine2[0-9]{0,3}. sinon elle retourne 0

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
sub valide_id {
 
$nom = "jourde";
$prenom = "pierre";
$test;
my ($id)  = @_; #récupération de la séquence à traiter
$test = substr($prenom,0,2);# Les 2 premières lettres du prénom
$test2 = substr($nom,0,3); # les 3 premières lettres du nom
$test = $test.$test2; 
 
if($id =~ $test || $id =~ /^$test\d{0,3}$/ ){
return 1 ;
}
else{
return 0;
}
}

et si je l'appelle avec :

Code :

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

1
2
3
 
$cd = valide_id("pijou12345"); #deux caractères de plus 
 printf "resultat :$cd";

elle retourne 1 ! alors qu'elle doit retourner 0,
je sais que le problème réside ici : $id =~ /^$test\d{0,3}$/

j'espère que m'aidiez le plus vite possible
merci

[Jedai]

et si je l'appelle avec :

Code :

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

1
2
3
 
$cd = valide_id("pijou12345"); #deux caractères de plus 
 printf "resultat :$cd";

elle retourne 1 ! alors qu'elle doit retourner 0,
je sais que le problème réside ici : $id =~ /^$test\d{0,3}$/

Ben c'est dommage, parce que le problème n'est pas là....

Code :

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

$id =~ $test

est la partie erronée, puisque tu n'as pas mis les ancres de début '^' et de fin '$'...

En plus tu as des variables non déclarées, et aucune indentation...
Je te fais une version plus correcte, et te conseille vivement de consulter la section sur le style en Perl dans notre FAQ :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sub check_id {
  # je doute que tous tes tests soient effectués avec les mêmes
  # nom/prénom, ne devrais tu pas passer ceci en paramètre ?
  my ($nom, $prenom) = ('jourde', 'pierre');
 
  # récupération de la séquence à traiter
  my $id  = shift;
 
  # Les 2 premières lettres du prénom puis les 3 premières lettres du nom
  my $id_part = substr($prenom,0,2) . substr($nom,0,3); 
 
  return ($id =~ m/^\Q$id_part\E\d{0,3}$/);
}
 
print "id1_ok\n" if check_id( 'pijou12345' );
print "id2_ok\n" if check_id( 'pijou12' );

--
Jedaï

[dewdew]

merci Jedaï, vous avez tout à fait raison, quand je fait:

Code :

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

$id =~ /^$test$/

ça marche j'ai oublier les ancres de début '^' et de fin '$' !!

merci à tous