perl - 作为智能匹配操作的结果获取数组的索引？

Question

有没有办法获取标量和数组之间通过智能匹配运算符 (~~) 进行的比较结果的索引？

if ( $str ~~ @data ) {
   #code to get index of array where match occurred
}

如果匹配，条件表达式将返回 true，因此这没有任何帮助。

在非常简单的情况下，我确实喜欢 smartmatch 运算符；我不会将它用于任何疯狂的比较，例如数据结构与数据结构或其他一些疯狂的比较。

Answer 1

我没有在文档中看到任何方法(perldoc perlop)。

List::MoreUtils :

use warnings;
use strict;
use List::MoreUtils qw(firstidx);

my @data = qw(red white blue green);
my $i = firstidx { $_ eq 'blue' } @data;
print "$i\n";

__END__

2