解决方法
use List::Util qw(first);
$idx = first { $array[$_] eq 'whatever' } 0..$#array;
(List :: Util是核心)
要么
use List::MoreUtils qw(firstidx);
$idx = firstidx { $_ eq 'whatever' } @array;
(List :: MoreUtils在CPAN上)
use List::Util qw(first);
$idx = first { $array[$_] eq 'whatever' } 0..$#array;
(List :: Util是核心)
要么
use List::MoreUtils qw(firstidx);
$idx = firstidx { $_ eq 'whatever' } @array;
(List :: MoreUtils在CPAN上)