★ソート 連想ハッシュのソート
表示の直前まで、年を含んだようにしておくべし
# 連想配列 あえて、panel順序、日の順序もバラバラにしてる
57 my %HoH = (
58 'panel_1' => { '20141203'=>'0' , '20141204'=>'0' , '20141205'=>'0' , '20141206'=>'0' , '20141207'=>'0' , '20141208'=>'0' },
59 'panel_8' => { '20141208'=>'0' , '20141207'=>'0' , '20141203'=>'0' , '20141204'=>'0' , '20141206'=>'0' , '20141205'=>'0' },
60 'panel_6' => { '20141208'=>'0' , '20141207'=>'0' , '20141203'=>'0' , '20141204'=>'0' , '20141206'=>'0' , '20141205'=>'0' },
61 'panel_3' => { '20141208'=>'0' , '20141207'=>'0' , '20141203'=>'0' , '20141204'=>'0' , '20141206'=>'0' , '20141205'=>'0' },
62 'panel_4' => { '20141205'=>'0' , '20141206'=>'0' , '20141205'=>'0' , '20141206'=>'0' , '20141203'=>'0' , '20141204'=>'0' },
63 );
78 # ソートされた全体を出力
79 foreach my $family ( sort keys %HoH ) {
80 print "$family: { ";
81 for my $role ( sort keys %{ $HoH{$family} } ) {
82 print "$role=$HoH{$family}{$role} ";
83 }
84 print "}¥n";
85 }
出力 panelでもソートしてるし、中の日でもソートしてる
panel_1: { 20141203=0 20141204=0 20141205=0 20141206=0 20141207=0 20141208=0 }
panel_3: { 20141203=0 20141204=0 20141205=0 20141206=0 20141207=0 20141208=0 }
panel_4: { 20141203=0 20141204=0 20141205=0 20141206=0 }
panel_6: { 20141203=0 20141204=0 20141205=0 20141206=0 20141207=0 20141208=0 }
panel_8: { 20141203=0 20141204=0 20141205=0 20141206=0 20141207=0 20141208=0 }