質問: "op199"がtrueとなるのは要素番号3であるから,3を返す [1] 3 というものがあるのですが、これと同じような関数が欲しいのです(泣)
回答: no.1さんとほととん同じですが、配列の要素数が大きい場合はこちらのほうが高速だと思います。 use list::util qw(first); my @moji = ("ak", "df", "gc"); my $x = "ak"; my $res = first { $moji[$_] eq $x } 0 .. $#moji; print "$res\n";