Discussion :

[cricri77200]

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

Code :

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

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

[ellgafsi]

Salut!

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

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

[Jedai]

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

Code :

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

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 Perl :

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

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 Perl6 :

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

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

ou

Code Perl6 :

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

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

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

--
Jedaï

[lennelei]

On peut aussi utiliser une regexp non ?

Code :

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

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

[Jedai]

On peut aussi utiliser une regexp non ?

Code :

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

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ï

[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 :

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

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.