Perlでのハッシュソート方法をメモメモ。 文字コードはUTF-8です。 use strict; use warnings; use utf8; use Encode qw/encode/; my %hash = ( c => 'bb', d => 'aa', a => 'dd', b => 'cc', ); # ハッシュのキーで文字列昇順ソート print encode('UTF-8', "ハッシュのキーで文字列昇順ソート\n"); foreach my $key (sort keys %hash) { print "$key, $hash{$key}\n"; } # ハッシュのキーで文字列降順ソート print encode('UTF-8', "ハッシュのキーで文字列降順ソート\n"); foreach my $key (sort {$b cmp $a} keys %hash) { p