perl 連想ハッシュのソート

2015.01.25 Sunday 22:11
0
    ★ソート 連想ハッシュのソート
    表示の直前まで、年を含んだようにしておくべし

    # 連想配列 あえて、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 }


    category:perl | by:ittoocomments(0)trackbacks(0) | -

    スポンサーサイト

    2020.07.25 Saturday 22:11
    0
      category:- | by:スポンサードリンク | - | - | -
      Comment








         
      Trackback
      この記事のトラックバックURL

      ad
      Calender
            1
      2345678
      9101112131415
      16171819202122
      23242526272829
      3031     
      << August 2020 >>
      Selected entry
      PR
      Category
      Archives
      Recent comment
      • パス指定 SyntaxError: (unicode error) 'unicodeescape' codec can't decode bytes in position 2-4: truncated ¥xXX escape
        久米隆文
      • 円マークが自動変換されてる
        aaaaaa
      • マクドナルドでYahoo BBモバイルポイント 公衆無線LANサービスがつながらない
        66hills
      • マクドナルドでYahoo BBモバイルポイント 公衆無線LANサービスがつながらない
        ssd
      • マクドナルドでYahoo BBモバイルポイント 公衆無線LANサービスがつながらない
        max
      • マクドナルドでYahoo BBモバイルポイント 公衆無線LANサービスがつながらない
        DOM
      • マクドナルドでYahoo BBモバイルポイント 公衆無線LANサービスがつながらない
        DOM
      • コンピュータ業界の根本的な変化
        cloud
      • コンピュータ業界の根本的な変化
        Dellの仮想化
      • マクドナルドでYahoo BBモバイルポイント 公衆無線LANサービスがつながらない
        えちごや
      Recent trackback
      • スマートフォンの法人活用例
        無線LANネットのブログ
      • Yahoo!オークションからのアフィリエイト収入が一気に70%減になってしまい涙目になってる話
        特選情報
      Recommend
      Link
      Profile
      Search
      Others
      Mobile
      qrcode
      Powered
      無料ブログ作成サービス JUGEM