Discussion :

[super_dz]

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

[Jedai]

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

Code :

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

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 :

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

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ï