Discussion :

[johnkro]

Bonjour tout le monde,

j'aimerais savoir s'il existe une fonction perl me permettant de savoir si un élément est présent dans une liste.

@liste = ("pusr","pnice","kbmemused");
$var_recherche = "pusr";

Comment savoir si $var_recherche est bien dans @liste? sans faire de for ou foreach, je voudrais une fonction qui me renvoie un boolean.

Merci d'avance

[CKLN00]

tu n'as pas poster au bon endroit
lire la faq ça aide
pour répondre à ta question je pense que grep() est ce qu'il te faut
(cf le lien vers la faq )

[Jedai]

grep() est effectivement fréquemment utilisé pour cet usage. Mais first() de List::Utils (module dans le CORE) est plus efficace :

Code :

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

print "$elem est dans la liste \@list\n" if first {$elem eq $_} @list;

--
Jedaï

[CKLN00]

oui mais (si je dit pas de bêtise) first ne ressortiras qu'un seul élément
(ce qui semble être suffisant pour ce cas) alors que grep sortiras tout les élément correspondant, il me semble .

[johnkro]

Can't call method "first" without a package or object reference at test.pl line 26.

Il faut ajouter quel package?

[CKLN00]

grep() est effectivement fréquemment utilisé pour cet usage. Mais first() de List::Utils

un petit

Code :

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

use List::Utils ;

au début de ton script devrai suffire

[Jedai]

oui mais (si je dit pas de bêtise) first ne ressortiras qu'un seul élément
(ce qui semble être suffisant pour ce cas) alors que grep sortiras tout les élément correspondant, il me semble .

Oui mais ici on cherche juste à déterminer si un élément est présent dans la liste, pas s'il y en a plusieurs exemplaire (en tout cas ce n'était pas la question posée), first sera plus rapide en cas de succès car elle s'arrêtera dès qu'elle a trouvé l'élément, contrairement à grep.

--
Jedaï

[johnkro]

Can't locate List/Utils.pm in @INC (@INC contains: /usr/lib/perl5/5.6.1/i686-linux /usr/lib/perl5/5.6.1 /usr/lib/perl5/site_perl/5.6.1/i686-linux /usr/lib/perl5/site_perl/5.6.1 /usr/lib/perl5/site_perl .) at test.pl line 2.
BEGIN failed--compilation aborted at test.pl line 2.

Euh petit soucil avec le "use List::Utils ;"

[kioka]

@liste = ("pusr","pnice","kbmemused");
$var_recherche = "pusr";

if(grep(/$var/, @liste)){
print "$var est dans la liste;
}

Je pense que c'est plus simple à utilisé mais bon ...

[CKLN00]

autant pour moi c'est pas Utils mais Util donc :

Code :

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

use List::Util ;

[johnkro]

meme erreur sans le s à Util, je vais donc utiliser la commande grep

merci a vs 2