Discussion :

[STEPH69000]

Bonjour,
je cherche a vérifier si un scalaire ($a) est inclus dans mon tableau (@tab), j'ai l'intention de creer une boucle pour faire le travail

Code :

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

1
2
3
4
 
for (@tab) {
  if ($tab[$_] eq $a) {print " $a est présent \n ";}
}

Mais existe t'il une fonctione qui permet de vérifier cela plus rapidement?

Merci pour votre aide

[2Eurocents]

Plus rapidement, je ne sais pas ...

De façon différente, certes !

Code :

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

if (grep { $_ == $a } @tab) { print "$a (numerique) est dans le tableau\n"; }

Code :

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

if (grep { $_ eq $a } @tab) { print "$a (chaine) est dans le tableau\n"; }

Code :

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

1
2
3
4
5
$indices = grep { $tab[$_] == $a } (0..$#tab);
$,= ", ";
print "$a (numerique) est dans le tableau aux indices :";
print @indices;
print "\n";

Voire même en créant un hash indicé par les valeurs du tableau et en faisant un if (exists (%hash{$a})) ...

[Woufeil]

Bonjour,

Oui, tu peux faire ça avec la fonction grep, que tu peux utiliser comme ceci dans ton cas:

Code :

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

if (grep {$_ eq $a} @tab)

Cette fonction renverra true si elle trouve $a dans @tab, false sinon (chaque valeur de la liste est affectée à $_ en fait, comme pour une boucle foreach).

€dit : je suis pas assez rapide

[STEPH69000]

Vous etres vraiement rapide,

Donc apparement aucune fonction n'est dédié à cela

Si je fonctionne sous Windows, est il possible possible d'écrire un script avec la fonction grep?
Merci

€dit :

[2Eurocents]

Si je fonctionne sous Windows, est il possible possible d'écrire un script avec la fonction grep?

Oui, car à part son nom, cette fonction n'a RIEN à voir avec celle que l'on peut trouver dans les shell UNIX.

C'est une fonction interne à Perl, et donc aussi portable que le reste.

Bon courage.

[STEPH69000]

merci bien,
je vais utiliser grep

[Jedai]

Y a un peu plus rapide que le grep :
D'abord si tu te poses souvent la question pour un tableau donné qui est assez gros, ça vaut le coup d'optimiser ça en faisant un hash associé et en utilisant exists().
Sinon plutôt que d'utiliser grep qui parcourra toujours le tableau en entier même si le premier élément du tableau était celui que tu cherchais tu peux utiliser List::Util::first() :

Code :

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

1
2
3
4
5
 
sub is_in {
  my ($elt, $arref) = @_;
  return defined( first( {$elt eq $_} @$arref ) );
}

--
Jedaï