From: activeperl-bounceslistserv.ActiveState.com
[mailto:activeperl-bounceslistserv.ActiveState.com]
On Behalf Of
Deane.Rothenmaierwalgreens.com
Sent: 22 October 2007 21:13
To: activeperllistserv.ActiveState.com
Subject: Index of element in array?

> Gurus, 
> 
> I'm unable to find this in the Camel, Panther, or
Billygoat books, so
I'll ask you... Is there a Perl function > that returns
the index of a
given element in an array?  For example: 
> 
> my list = q( apple  banana  pear  grapefruit); 
> 
> my $look4 = "banana"; 
> 
> my $ndx = somefunc( $look4, list ); # sets $ndx to 1 
> 
> $look4 = "monkeywrench"; 
> 
> $ndx = somefunc( $look4, list); # sets $ndx to -1,
or maybe undef? 
> 
> I'm trying to find a more elegant way than running a
foreach loop over
list. 

You have already received some good answers (particularly
Martin's
suggestion of List::MoreUtils), but I shall ask, what seems
to me, the
obvious question. What are you trying to achieve by doing
this, as there
may be a more 'perl-ish' way of doing it than finding the
index of
elements in an array. I believe that the main reason that
such a
function does not already exist in core Perl is that a) it
is very
rarely necessary, and b) it is fairly trivial to implement
when it is
(see the code for List::MoreUtils).

If you can answer this, then you might get an even more
useful
suggestion.

HTH

Also, can I echo Martin's request to post in plain text.

-- 
Brian Raven 

=========================================
Atos Euronext Market Solutions Disclaimer
=========================================

The information contained in this e-mail is confidential and
solely for the intended addressee(s). Unauthorised
reproduction, disclosure, modification, and/or distribution
of this email may be unlawful.
If you have received this email in error, please notify the
sender immediately and delete it from your system. The views
expressed in this message do not necessarily reflect those
of Atos Euronext Market Solutions.

Atos Euronext Market Solutions Limited - Registered in
England & Wales with registration no. 3962327. 
Registered office address at 25 Bank Street bond E14 5NQ
United Kingdom. 
Atos Euronext Market Solutions SAS - Registered in France
with registration no. 425 100 294.  Registered office
address at 6/8 Boulevard Haussmann 75009 Paris France.

L'information contenue dans cet e-mail est confidentielle et
uniquement destinee a la (aux) personnes a laquelle
(auxquelle(s)) elle est adressee. Toute copie, publication
ou diffusion de cet email est interdite. Si cet e-mail vous
parvient par erreur, nous vous prions de bien vouloir
prevenir l'expediteur immediatement et d'effacer le e-mail
et annexes jointes de votre systeme. Le contenu de ce
message electronique ne represente pas necessairement la
position ou le point de vue d'Atos Euronext Market
Solutions.
Atos Euronext Market Solutions Limited Société de droit
anglais, enregistrée au Royaume Uni sous le numéro 3962327,
dont le siège social se situe 25 Bank Street E14 5NQ Londres
Royaume Uni.

Atos Euronext Market Solutions SAS, société par actions
simplifiée, enregistré au registre dui commerce et des
sociétés sous le numéro 425 100 294 RCS Paris et dont le
siège social se situe 6/8 Boulevard Haussmann 75009 Paris
France.
=========================================

_______________________________________________
ActivePerl mailing list
ActivePerllistserv.ActiveState.com
To unsubscribe: http:/
/listserv.ActiveState.com/mailman/mysubs