「Perlの配列に一致する要素が格納されているインデックスを取得する方法」は自分ならこうやる。
2015年1月22日
配列の中に該当の文字が何番目にでてくるかー・・？
ってやつなんですけど、List::MoreUtilsってモジュールを使えば下記みたいに書ける。
firstidxってそのものズバリなやつがあるんで、それを使う。
use List::MoreUtils qw/firstidx/;
my @list = ( 'a', 'b', 'c', 'd', 'e', 'f', 'g' );
my $result = firstidx { $_ eq 'c' } @list;
print $result;
速度的にもこっちの方が早い（と思う）