Re: Finding index of an entry in an Array

[Fletch]

Aside from the fact that the index of 'bar' in your sample array is 1 not 2 (remember array indexen start at 0) . . .

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

[snoopy]

Also, List::MoreUtils has a first_index method:

use List::MoreUtils;
my $input = 'qux';
my @repo = qw (foo bar qux);

Print List::MoreUtils::first_index {$_ eq $input} @repo;

[tuxz0r]

This concept works without List::Util as well,

my @array = qw(dog cat mat bat hat); 
my ($idx) = grep { $array[$_] eq 'bat' } 0 .. $#array;

Update: Fletch noted an issue, when I was quickly testing on the command line I wasn't assigning to a variable, just printing (e.g. print grep { ... } 0 .. $#array, which evaluates in list context, not scalar context as I through up here with the assignment. Adding the parens clears that up. (Thanks Fletch).

[Fletch]

Not without parens (since grep in scalar context returns the number of matching elements) and not without searching the entire list of indexen (which of course could be what the OP really wants, the indexen of all matching elements).

my( $idx ) = grep { $array[ $_ ] eq 'bar' ) 0..$#array;
my @indexen = grep { $array[ $_ ] eq 'bar' } 0..$#array;

That aside, yup that's another way to do it. :)