Discussion :

[mathieu57]

bonjour, je débute en perl et j'ai une petite question...

j'ai un scalaire (une chaine de caracteres) et un tableau.
pour savoir si mon scalaire existe dans le tableau, j'ai fait une fonction qui compare le scalaire à chaque éléments du tableau...
mais n'existe t'il pas une fonction equivalente en perl ?
un fonction qui renvoie oui ou non (ou 0 ou 1) si le scalaire existe ou non dans le tableau ?
un genre de inarray en php...

merci d'avance pour vos réponses.

[Jedai]

Si tu n'as aucune information a priori sur le tableau (est-il trié ?), tu n'as aucun autre moyen que la recherche linéaire pour vérifier si un élément s'y trouve. Dans ce cas il n'existe aucune fonction Perl prédéfinie, généralement on utilise quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
use List::Utils qw(first);
 
sub in_list {
  my $elem = shift;
  return defined( first {$elem eq $_} @_);
}
 
print "Hello is in the list" if in_list "hello", ("hello", "world");

Mais si tu as souvent besoin de faire ça, c'est peut-être que tu utilises des listes là où tu devrais plutôt utiliser des hashs :

Code :

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

print "Hello is in the set" if exists $hash{hello};

--
Jedaï