初めてのPerl 第7版

257

14.4　高度なソート

です。ソートサブルーチン

by_score

は次のようになります。

sub by_score { $score{$b} <=> $score{$a} }

順を追って動作を見てみましょう。このソートサブルーチンが初めて呼び出されたときに、

$a

には

barney

、

$b

には

fred

がセットされていたとしましょう。すると、

$score{"fred"} <=>

$score{"barney"}

という比較が行われ、（ハッシュの内容からわかるように）これは

205 <=> 195

となります。そして、スペースシップ演算子は近視眼的なので、

205

が

195

の前にあるのを見る

と、「いいえ、これは正しい数値順になっていません。

$b

が

$a

より前に置かれるはずです」と答

えます。ですから、

Perl

は 、「

fred

が

barney

よりも前に置かれる」ということを知ります。

このソートサブルーチンが次に呼び出されたときには、

$a

はまた

barney

ですが、

$b

は

dino

だったとしましょう。スペースシップ演算子は今度は

30 <=> 195

を見て、正しい順番に並んでい

る

─

実際に、

$a

は

$b

の前にあります

─

と報告します。ですから、

barney

は

dino

よりも前に置

かれます。この時点で、

Perl

は、リストを正しく並べるのに十分な情報

─

優勝は

fred

、

2

位は

barney

、

3

位は

dino

─

を手に入れています。

なぜ比較演算子で

$score{$b}

を

$score{$a}

よりも

─

後ろではなく

─

前に置くのでしょうか。 ...