リストを出す時のソートについて

Question

CGIのフォーム部分を改造しようとしています。
セレクトの部分なんですが、設定した順番通りに並べたいです。
(現在は50音順(?)でソートされてしまっている)

現在以下のようになっています。

#リストアレイ
%serieslist = (
aa0 => 'aa0',
cc1 => 'cc1',
bb2 => 'bb2',
bb3 => 'bb3',
);

print "      <OPTION value=\"\">シリーズがあるなら選択してください</OPTION>\n";              
foreach $key ( sort keys %serieslist ) {
	if($key eq $series){
	print "      <option value=\"$key\" selected>$serieslist{$key}</OPTION>\n";
	}else{
	print "      <option value=\"$key\">$serieslist{$key}</OPTION>\n";
	}
}
print "    </SELECT>\n";

foreachの「sort keys」部分が悪いと言うのは何となくわかるのですが、どのように書き換えたら リストの順番通りに表示できるでしょうか?

Answer 1

ハッシュは順序を維持しません。
順序を維持するにはIxHashを適用する必要があります。

use Tie::IxHash;

# 略

my %serieslist = ();
tie %serieslist, 'Tie::IxHash';
# TODO: ここで%serieslistを設定

# 略

foreach my $key (keys %serieslist) {

# 略

Tie::IxHashがインストールされていない場合は、cpanmなどでインストールしてください。

注意点としては、巨大なハッシュにIxHashを適用すると処理速度が低下します。

ハッシュとは別に、配列でハッシュのキーを保持して、配列でループしてハッシュを参照するという方法もあります。冗長にはなりますが、IxHashがなくても動きます。

# 略

my @serieslist_keys = qw(aa0 cc1 bb2 bb3); # 配列でハッシュのキーをリスト化

# 略

foreach my $key (@serieslist_keys) { # 配列でループする
    # 略

    $serieslist{$key}; # 配列からの文字列でハッシュを参照

    # 略
}

# 略

Comments

[terataka]

Tie::IxHashのインストールなどをしないとだめなんですね。
解答ありがとうございました。

[TaMaMhyu]

下の方に書いていた、別の配列を用意する方法（IxHash不要）の例も追記しておきました。