明解Ｃ言語 入門編 > 6. 関数 > 逐次探索 (番兵) Perl $NINSU = 5; $FAILED = -1; sub search { my ($key, $no, $ary) = @_; $$ary[$$no] = $$key; $i = 0; while (1) { last if ($$ary[$i] == $$key); $i++; } return ($i == $$no ? $FAILED : $i + 1); } @…