私もベンチしますた！私の恥ずかしい binsearch、見てくださ(ry

>>692 乙ですが、ちょっちバグが有るにゅ。
　$filedata =~ m|$_[0]\t([^\n]*)|o)[0];
だと、例えば $_[0] == "10" で、"10010\tHogerapukya\n" とかにもマッチしちゃうにゅ。
ここはあらかじめ　$filedata = "\n$filedata"　とした上で、
m|\n$_[0]\t([^\n]*)| によってマッチすべきかと。

あと data.txt 上のキーが２万種類なのに、探索が４万種類について行われてたので直しました。
それと、バグではないけど、数値順でなくて、辞書順の binsearch のほうが >>632 は嬉しいと思う。

けど乙ですだ。全てのキーで 10 回づつ検索するんだから、これで、
各要素に満遍なく、頻繁にアクセスする条件でのベンチになってますよね、ね？>>696, >>697 (ｵﾛｵﾛ（´д｀;）