Tester existence valeur dans ARRAY

Bonjour,

J'ai un tableau et une variable que j'initialise comme ca:

Code:

---

1 2 3 4 5

my $val1 = 1; my $val2 = 2; my @array = ( $val1, $val2 );   my $value = 3;

---

Je voudrais tester si la valeur de $value est présente dans le tableau.
Savez s'il existe un test sur les valeurs dans le tableau, ou s'il faut que je passe par un hash et utiliser les KEYS???

Merci d'avance
Mat

Passer par un hash est plus efficace si tu as souvent de telles vérifications à faire, surtout si ton tableau est très gros. D'ailleurs si tu ne te soucie pas de l'ordre dans lequel sont rangées tes valeurs, tu devrais utiliser un hash plutôt qu'un tableau.

Néanmoins s'il s'agit d'une vérification ponctuelle, tu peux te contenter d'utiliser grep et de vérifier si le tableau résultant est vide :

Code:

---

1 2 3 4 5 6 7

my $val1 = 1; my $val2 = 2; my @array = ( $val1, $val2 );   my $value = 3;   print "$value is in \@array\n" if grep {$_ == $value} @array;

---

Ou mieux : la fonction List::Util::first() (List::Utils est dans le CORE)

Code:

---

1 2 3

use List::Util qw(first);   print "$value is in \@array\n" if defined (first {$_ == $value} @array);

---

--
Jedaï

Merci, ta première solution marche à merveille, j'adopte...