Array search

[th206]

Hi, Is there a way in Perl to search an array with its value and not by its index? like java does with "IndexOf". Problem is: I have an array of 400 elements. Each element has some number stored. I'm trying to get the index of a particular element. Thanks in advance.

[Cristoforo]

This will do it

#!/usr/bin/perl
use strict;
use warnings;

my @array = qw/21 33 5 49 235 40/;

my @index = grep {$array[$_] == 235} 0..$#array;

print "@index\n";

(prints 4)

[jZed]

Assuming the array elements are unique and that you'll want to find more than one index, a hash is a good solution:

my @array = qw/a b c d/;
my %indexOf = map { $array[$_] => $_} 0..$#array;
printf "%s\n",  ( $indexOf{c} == 2 ) ? "ok" : "bad";

[LucaPette]

Getting Matching Items From An Array, very useful.

[tirwhan]

use List::MoreUtils qw(firstidx);

my $index = firstidx { $_ == $searchvalue } @array;