teste une variable qui es différente de tous les éléments d'un tableau

Salut,

petite question,

j'ai un tableau plein de valeurs,

comment en une seule instruction, faire

$var <> @tab

c'est a dire de vérifier si la variable $var n'est pas un élément du contenu du tableau @tab

du même style du hash

if ( not defined $HASH{$var} ) { inst ...}

et merci d'avance

Il y a plusieurs solutions, la plus simple, qui marche à tous les coups est :

Code:

---

1 2 3

if( grep { $var eq $_ } @tab ) { # or { $var == $_ } is $var is numeric # is in array }

---

Un peu meilleur (et List::Utils est dans le CORE) :

Code:

---

1 2 3 4 5

use List::Utils qw/first/;   if( defined( first { $var eq $_ } @tab ) ) { # or { $var == $_ } is $var is numeric # is in array }

---

Ensuite il faut se demander si cette recherche d'une variable dans le tableau est une opération fréquente, si tel est le cas, il peut-être préférable d'employer un hash plutôt qu'un tableau, ou solution alternative, de trier le tableau et de faire des recherches dichotomiques.

--
Jedaï