Test si une variable eq a ..

Version imprimable

25/08/2009, 10h06
cricri77200

Test si une variable eq a ..
Bonjour j'aimerai savoir si quelqu'un saurait faire l'opération suivante :
Code:

1 2 3 4 if ( $string eq ("X" or "Y" or "Z)) { print " OK\n"; }
Cependant ce test ne fonctionne que pour le X et par le Y ou Z.
J'ai essaye de remplacer les or par des || mais sans succès ...

Cordialement

Salut!

essaye ca je suis pas sur si ca ce que tu veux:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my $string = <STDIN>;
chomp $string;
 
my $X = <STDIN>;
chomp $X;
 
my $Y = <STDIN>;
chomp $Y;
 
my $Z = <STDIN>;
chomp $Z;
 
 
if (($string == 'X')||($string == 'Y')||($string == 'Z')){
	print "ok!!!"
}

25/08/2009, 10h57
Jedai
Citation:
Envoyé par cricri77200

Bonjour j'aimerai savoir si quelqu'un saurait faire l'opération suivante :

Code:

1 2 3 4 if ( $string eq ("X" or "Y" or "Z)) { print " OK\n"; }

Cependant ce test ne fonctionne que pour le X et par le Y ou Z.
J'ai essaye de remplacer les or par des || mais sans succès ...
Dans pratiquement tous les langages de programmation existant, cette opération doit se coder :
Code:

1 2 3 if ( $string eq "X" or $string eq "Y" or $string eq "Z") { print " OK\n"; }
Toutefois, en Perl6 (tu utilises probablement Perl5 pour l'instant), tu peux effectivement procéder comme ton intuition te l'avait soufflé :

Code:

say "OK" if $string eq any("X","Y","Z");

ou

Code:

say "OK" if $string eq ("X" | "Y" | "Z");

(any(...) ou (.. | .. | ...) est ce que l'on appelle une jonction)

--
Jedaï
25/08/2009, 11h07
lennelei

On peut aussi utiliser une regexp non ?

Code:

print "OK" if $string =~ /^[XYZ]$/;
25/08/2009, 12h47
Jedai

Citation:

Envoyé par Alek-C

On peut aussi utiliser une regexp non ?

Code:

print "OK" if $string =~ /^[XYZ]$/;

Effectivement, néanmoins il faut mettre en balance la lisibilité et la performance du truc... Dans ce cas particulier, je crains que l'utilisation d'une regex n'ait pratiquement aucun avantage niveau performance et soit bien moins lisible qu'une simple alternative de test d'égalité.

Les regexps c'est bien, mais il ne faut surtout pas en abuser au risque d'abaisser nettement la lisibilité de son programme.

--
Jedaï
25/08/2009, 14h31
lennelei
Ah, c'est amusant, en ce qui me concerne, je trouve ça plus pratique (niveau lisibilité) que la version perl5 (évidemment, je ne parle pas du perl6 qui est niquel).

En fait, ce que je reproche au
Code:

1 2 3 if ( $string eq "X" or $string eq "Y" or $string eq "Z") { print " OK\n"; }
C'est que, selon moi, on a vite fait de s'y mélanger pour peu qu'il y ait 2/3 options, ou (pire) qu'il faille gérer la casse...
Alors qu'avec la regexp, je trouve ça plus clair (comme quoi, les goûts et les couleurs)...

Cela étant, tu as certainement beaaaaaauuuucoup plus d'expérience que moi dans le domaine ;) donc je m'en souviendrais si j'ai un truc du genre à programmer !

Par contre, entièrement d'accord sur les risques au niveau performance, mais j'imagine que ce n'est pas un critère prioritaire dans le contexte.