SPUG: IndexOf in Perl?

David Dyck david.dyck at fluke.com
Sat Jan 28 15:32:40 PST 2006


On Sat, 28 Jan 2006 at 11:58 -0800, Tanwir Habib <tanwirh at hotmail.com> wrote:

> I've recently switched from .NET to Perl for my needs in
> bioinformatics work.
>
> Is there a way in Perl to search an array with its value to get its
> index? like java does with "IndexOf".


Look at List::MoreUtils
   http://search.cpan.org/dist/List-MoreUtils/lib/List/MoreUtils.pm

perl -le 'use List::MoreUtils qw(firstidx); print firstidx { /z/ } ("a" .."z");'
25


firstidx BLOCK LIST
first_index BLOCK LIST

     Returns the index of the first element in LIST for which the criterion
     in BLOCK is true. Sets $_ for each item in LIST in turn:

         my @list = (1, 4, 3, 2, 4, 6);
         printf "item with index %i in list is 4", firstidx { $_ == 4 } @list;
         __END__
         item with index 1 in list is 4

     Returns -1 if no such item could be found.

     first_index is an alias for firstidx.



More information about the spug-list mailing list