小粋空間  -  a cheap joke and a play on words site

Perlでハッシュをソートする方法のまとめ

Perlでハッシュをソートする方法をまとめました。

このエントリーはPerlビギナーの方向けの内容です。

１．問題点

次のようなハッシュを作り、出力してみました。

my %foo;
$foo{Mon} = 10;
$foo{Tue} = 200;
$foo{Wed} = 30;
$foo{Tur} = 1000;
$foo{Fri} = 20;
$foo{Sat} = 50;
$foo{Sun} = 1;
 
for my $key (keys %foo) {
    print "$key:$foo{$key}\n";
}

実行結果（例）

Mon:10
Tue:200
Fri:20
Tur:1000
Wed:30
Sun:1
Sat:50

このハッシュについて、キーと値のそれぞれでソートして出力したいのですが、具体的な方法が分かりません。

２．ハッシュのキーでソートする

ハッシュのキーでソートするには、for文のハッシュ名の左側に「sort keys」を追加します。

for my $key (sort keys %foo) {
    print "$key:$foo{$key}\n";
}

実行結果

Fri:20
Mon:10
Sat:50
Sun:1
Tue:200
Tur:1000
Wed:30

３．ハッシュのキーで逆順にソートする

ハッシュのキーで逆順にソートするには、２項の記述に「reverse」を追加します。

for my $key (reverse sort keys %foo) {
    print "$key:$foo{$key}\n";
}

実行結果

Wed:30
Tur:1000
Tue:200
Sun:1
Sat:50
Mon:10
Fri:20

４．ハッシュの値でソートする

ハッシュの値でソートするには、for文のハッシュ名の左側に「sort values」を追加します。

for my $key (sort values %foo) {
    print "$value\n";
}

実行結果

1
10
1000
20
200
30
50

５．ハッシュの値で逆順にソートする

ハッシュの値で逆順にソートするには、２項の記述に「reverse」を追加します。

for my $value (reverse sort values %foo) {
    print "$value\n";
}

実行結果

50
30
200
20
1000
10
1

６．ハッシュを数値でソートする

４項と５項は数字が期待通りに並んでいません。これはデフォルトのソートが文字列として扱われるためです。

数値としてソートするには、数値でのソート条件「{$a <=> $b}」を記述します。

for my $value (sort {$a <=> $b} values %foo) {
    print "$value\n";
}

実行結果

1
10
20
30
50
200
1000

逆順でソートする場合は、５項と同様「reverse sort～」とするか、$aと$bの位置を入れ替えます。

また、キーを数値としてソートする場合も同様です（今回のサンプルではあてはまりません）。

for my $keys (sort {$a <=> $b} keys %foo) {
    print "$key:$foo{$key}\n";
}

６．ハッシュを値でソートしてキーも出力する

５項に示した値のソートでは、キーが表示されません。

値でソートしてキーも出力したい場合は、キーでソートし、ソート条件の中で値をソートする記述を追加します。

for my $key (sort {$foo{$a} <=> $foo{$b}} keys %foo) {
    print "$key:$foo{$key}\n";
}

実行結果

Sun:1
Mon:10
Fri:20
Wed:30
Sat:50
Tue:200
Tur:1000

７．複合条件でソートする

複合条件でソートするには、それぞれの条件を「||」でつなぎます。はじめの条件で比較できなかった場合は2つめの条件でソートします。

for my $key (sort {$foo{$a} <=> $foo{$b} || $a cmp $b} keys %foo) {
    print "$key:$foo{$key}\n";
}