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