How to get the index of an element in an array?

Question

Does Perl have a build-in function to get the index of an element in an array? Or I need write such a function by myself? [ equivalent to PHP array_search() or JavaScript array.indexOf() ]

Answer 1

use List::Util qw(first); $idx = first { $array[$_] eq 'whatever' } 0..$#array; 

(List::Util is core)

or

use List::MoreUtils qw(firstidx); $idx = firstidx { $_ eq 'whatever' } @array; 

(List::MoreUtils is on CPAN)

Answer 2

Here's a post-5.10 way to do it, with the added benefit of determining how many indexes match the given value.

my @matches = grep { $array[$_] ~~ $element } 0 .. $#array; 

If all elements are guaranteed to be unique, or just the first index is of interest:

my ($index) = grep { $array[$_] ~~ $element } 0 .. $#array;