ハッシュで重複キーを認める方法について

質問

現在、Perlを用いてBootstrap法という方法論によるデータの加工を行っています。
その中でハッシュを使います。
それはkeyでsortしvalueを並び替え、その並び替えたvalueを処理することが目的です。
　例えばこのようなものです。

　Height　 Weight
　　170.6　　54.8
　　185.7　　87.2
　　156.1　　78.6
　　185.7　　87.2
　　164.5　　54.7
　　156.1　　45.3
　　　：　　　　 ：

以上のようなデータに対し、Heightをkeyにsortし、Weightを並び替え、その並び替えたWeightの値を上から順に同数ずつ、複数のグループに分類することが目的です。
ですがハッシュでは重複keyはvalueが上書きされてしまうので、元のデータより少なくなってしまい正確なsort、並び替えができません。
Perlでこの重複を回避する方法を教えていただきたく思います。

回答No.2

fumufumu_2006 · ベストアンサー

どうしてもハッシュを使わなくていいなら、データを配列にしてsortするという手もありますが・・・

my @data=(
[170.6 , 54.8],
[185.7 , 87.2],
[185.7 , 87.2],
[185.7 , 87.2],
[185.7 , 87.2],
[156.1 , 78.6],
[185.7 , 87.2],
[164.5 , 54.7],
[156.1 , 45.3]);

@data = @data[sort {$data[$a][0] <=> $data[$b][0]} 0..$#data];

for my $i(0..$#data){
print "$data[$i][0] , $data[$i][1]<br>\n";
}

p.s.
@heightと@weightに分かれていて、@heightをkeyにして@weightをsortするなら、
@weight = @weight[sort {$height[$a] <=> $height[$b]} 0..$#height];
になります、たぶん。

お礼

なるほど、こんな方法があるのですね。
sort {$data[$a][0] <=> $data[$b][0]}
このような表記でsortできるのは違和感があるのですが、まだ私が『{$a<=>$b}』の意味を十分に理解していないのと、『0..$#height』という記述の仕方で、$dataを@data（$data[$i]）として扱えるということかと解しました。
早速試してみます。
ありがとうございました。