怎么查看匹配后数组元素的索引值

justwalking

数组有大量元素，正则匹配后想获得对应元素的索引值，方便后续操作，该怎么做？谢谢~

yaoliwei

$#arr1  取得数组最大索引值。
scalar @arr1 取得元素个数。

hp_truth

回复 1# justwalking

(1)
　my @arr = ("when", "where", "why", "who", "how");

my @wanted;
my @index;

map { if ($arr[$_] =~ m/whe/) { push @wanted, $arr[$_]; push @index, $_;} } (0..$#arr);

(2)
　可以的话考虑用hash：
　my %hash;
   map {$hash{$arr[$_]} = $_  } (0..$#arr);