perlで一定の範囲ごとにカウントさせる方法について教えてください。

質問

perlで一定の範囲ごとにカウントさせる方法について教えてください。

例えば、data.txtに、-10≦n≦10の範囲で様々な数が入ったファイルがあるとして、

-10.0 ≦ x ＜ -9.9
-9.9 ≦ x ＜ -9.8
....
9.8 ≦ x ＜ 9.9
9.9 ≦ x ≦ 10.0 (←最後は≦のほうがいいですが、＜でもOK)

と0.1ごとに区切って、
その範囲に入る数をカウントしたいとき、

ifや+=を使って範囲を指定して、カウントアップさせる方法もありますが、
指定したい範囲の数が多いと、ifばかりをプログラム内に羅列するのは面倒です。

できれば以下のような結果が表示されるとうれしいのですが…

中間値　カウント数
-9.95 3
-9.85 6
...

すっきりした書き方はありませんか？よろしくお願いします。

回答No.3

kmee

今回の条件(上限下限が決まっている。定間隔)だったら

$val=( 読み込んだ値 )
だとして、

$minval = -10 ; # 最小値
$maxval = 10 ; # 最大値
$stepval = 10 ; # 0.1の逆数

if ( $val < $min ) {
$level = 0 ;
} elsif ( $val >= $maxval ) {
$level= 199; # ≦10のための処理
}else{
$level =int(($val - $minval) * $stepval) ; #区間番号0～199
}
$count[ $level ] += 1 ;

表示は
for($i=0;$I<200;++$i){
$start = $minval + $i / $stepval ;
$end = $minval + ($i+1) / $stepval ;
$mid = ($start + $end)/2 ;
printf "%5.2f %d\n", $mid, $count[$i];
}