perl 获取数组中匹配项的索引

Question

我想在数组中搜索一个元素。我想从这个搜索中得到的是我找到匹配的数组的所有索引。

因此，例如我要搜索的词是:

$myWord = cat

@allMyWords = my whole file with multiple occurrences of cat in random positions in file

因此，如果 cat 出现在第 3、第 19 和第 110 位，我希望将这些索引作为它的结果。我想知道是否有一个小而简单的方法来做到这一点。

谢谢!

Answer 1

与 List::MoreUtils :

use List::MoreUtils qw(indexes);

my @indexes = indexes { $_ eq 'cat' } @words;

如果您还没有阅读该文件，您可以使用“slurp 模式”阅读它:

local $/; # enable slurp mode
my @words = split(/\s+/, <>);