配列から初期値を探す方法

質問

よろしくお願いします。
ある計算を30回ほど繰り返して、その計算結果を
順次配列に格納することとします。
*仮に初期値を20とします。。

計算後その配列を昇順にソートした結果
@resurt = [1 , 3 , 5 , … , 20 , 35 , … , 400]
となったとき、初期値のいる位置（何番目にあるか？）
を求めるにはperlでどのようにコーディングすればよろしいでしょうか？

大変申し訳ございませんが
皆様のご助言、よろしくお願いします

回答No.1

kumoz · ベストアンサー

位置を求めるには、grep の引数リストに添字を指定します。

@result = (1 , 3 , 5 , ... , 20 , 35 , ... , 400);
($idx) = grep { $result[$_] == 20 } 0 .. $#result;

位置は 0 から数えたものですので、必要な場合は１を加えてください。

お礼

簡単なソースで実装できちゃうんですね。。
早速のご回答ありがとうございました