Discussion :

[Pauli]

Bonjour a tous,

Si je fais un if() avec plusieurs conditions, comment est ce que je peux savoir laquelle a ete vrai ou pas, et si c possible que cette valeur soit dans un parametre. Par ex:

Code :

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

if (a==1 or b==2 or c==3) {...}

comment savoir laquelle des valeurs a ete exacte dans ce if().

Merci.

[KiLVaiDeN]

Salut,

Tu ne peux pas quand tu regroupes des conditions, isoler celle qui a fait valider ou invalider la condition globale.

La seule solution que je vois, c'est de faire une série de if.

A+

[2Eurocents]

Bonjour,

Si je fais un if() avec plusieurs conditions, comment est ce que je peux savoir laquelle a ete vrai ou pas, et si c possible que cette valeur soit dans un parametre. Par ex:

Code :

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

if (a==1 or b==2 or c==3) {...}

comment savoir laquelle des valeurs a ete exacte dans ce if().

En fait, c'est possible, mais ce n'est pas forcément lisible, ni très efficace.

En effet, l'evaluation de l'affectation d'un test dans une variable produit aussi le résultat de ce test :

Code :

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

if ($a = ($b == 5))

• Mettra 1 dans $a et passera dans le bloc du if si $b vaut 5
• Mettra 0 dans $a et passera dans le bloc else si $b diffère de 5.

Permier point : l'efficacité. Il faut savoir que Perl, tout comme C ou certains langages avides de performances, fait des optimisations des tests en fonction des conjonctions qui sont utilisées. Ainsi, lorsque la conjonction est un "or", le test arrête son évaluation au premier test vrai rencontré. Lorsque la conjonction est un "and", le test s'arrête au premier test faux.

La conséquence, c'est que le test (($a==1) or ($b==2) or ($c==3)) s'arrêtera immédiatement si $a vaut 1, et le contenu de $b et $c ne sera même pas testé.


Pour ce qui est de la lisibilité, voici une façon de le faire, mais ce n'est pas beau :

Code :

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

1
2
3
4
5
6
7
8
$a=0; 
$b=1; 
 
if (($test[0] = ($a == 1)) or ($test[1] = ($b == 1))) { 
  foreach $i (0..$#test) { 
    print "test $i -> ".int($test[$i])."\n"; 
  }
}

Ce n'est pas lisible car il faut un tableau pour affecter tous les résultat des tests individuels, ou bien une papardée de variables ... Cela alourdit aussi le test et masque un peu sa logique.

A la limite, on peut retrouver de la lisibilité et de l'efficacité ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
$a=0; 
$b=1; 
 
$test[0] = ($a == 1);
$test[1] = ($b == 1);
 
if ($test[0] or $test[1]) { 
  foreach $i (0..$#test) { 
    print "test $i -> ".int($test[$i])."\n"; 
  }
}

Après, les plus "perlistes" utiliseront des push pour empiler les résultats de test dans le tableau, et un grep pour savoir lesquels sont vrais et lesquels sont faux.

Tout est possible, en Perl, ou presque. ;-)