请教个哈希/数组的排序问题

xiaoyezi2004

请教各位大侠，我有如下算法要求如下：要求用Perl实现；
假设我有如下数据结构（目前我用哈希实现）：
my %hash = {
     'CSH' =>{
                  '3' => {
                           'px' => 20,
                           'dt' => '20161221'
                          },
                   '4' => {
                            'px' =>10,
                            'dt' => '20161221'
                          }
                                   }
        'OTH' =>{
                  '1' => {
                           'px' => 30,
                           'dt' => '20161221'
                          },
                   '2' => {
                            'px' => 40,
                            'dt' => '20171221'
                          }
                                   }
            'ABC' =>{
                  '2' => {
                            'px' => 10,
                           'dt' => '20191221'
                          },
                   '3' => {
                            'px' => 25,
                            'dt' => '20201221'
                          }
                                   }
                                  
        };

（1）先按照dt值排序，取所有里边最小的：
（2）如果最小的有多个，从最小的这些里边取第一级key是CSH的， 如果CSH存在，并且多个，那取CSH下最小的那个key对应value；如果CSH不存在，就取所有的里边二级哈希的key最小的那个对应的value；
如
my %hash = {
     'CSH' =>{
                  '3' => {
                           'px' => 20,
                           'dt' => '20161221'
                          },
                   '4' => {
                            'px' =>10,
                            'dt' => '20161221'
                          }
                                   }
         'OTH' =>{
                  '1' => {
                           'px' => 30,
                           'dt' => '20161221'
                          },
                   '2' => {
                            'px' => 40,
                            'dt' => '20171221'
                          }
                                   }
            'ABC' =>{
                  '2' => {
                            'px' => 10,
                           'dt' => '20191221'
                          },
                   '3' => {
                            'px' => 25,
                            'dt' => '20201221'
                          }
                         }
                                  
        };
我最后想得到 'px'  = 20,   'dt' = '20161221'

如果哈希如下：
my %hash = {

           'OTH' =>{
                   '1' => {
                          'px' => 30,
                           'dt' => '20161221'
                          },
                   '2' => {
                            'px' => 40,
                            'dt' => '20171221'
                          }
                                   }
            'ABC' =>{
                    '2' => {
                            'px' => 10,
                           'dt' => '20191221'
                          },
                   '3' => {
                            'px' => 25,
                            'dt' => '20201221'
                          }
                                   }
                                  
        };
如上例我想得到px =30， dt=20161221
请问怎么实现？ 或者这个例子我们选用数组比较合适，如果是数组请问怎么实现？多谢各位！

jason680

是排序还是取(第一个)最小值??

1. 排序
  请说明清楚及排序结果...

2. 取最小值
  建构中,就可(保存)取出...

stanley_tam

%hash这个变量有毒，目测有语法错误。

RE_HASH

$hash1 = {
  'CSH' =>{
          '3' => {
            'px' => 20,
            'dt' => '20161221'
          },
          '4' => {
            'px' =>10,
            'dt' => '20161221'
          }
  },
  'OTH' =>{
          '1' => {
            'px' => 30,
            'dt' => '20161221'
          },
          '2' => {
            'px' => 40,
            'dt' => '20171221'
          }
  },
  'ABC' =>{
          '2' => {
            'px' => 10,
            'dt' => '20191221'
          },
          '3' => {
            'px' => 25,
            'dt' => '20201221'
          }
  }
  
};
$hash2 = {
  
  'OTH' =>{
          '1' => {
            'px' => 30,
            'dt' => '20161221'
          },
          '2' => {
            'px' => 40,
            'dt' => '20171221'
          }
  },
  'ABC' =>{
          '2' => {
            'px' => 10,
            'dt' => '20191221'
          },
          '3' => {
            'px' => 25,
            'dt' => '20201221'
          }
  }
  
};

sub SortMyHash
{
  my $A = $_[0];
  my @List;
  for $k1 (keys %$A)
  {
          $Key1 = ($k1 eq 'CSH') ? 0 : 1;
          for $k2 (keys %{$A->{$k1}})
          {
            $Key2 = $k2;
            
            $Key3 = $A->{$k1}->{$k2}->{dt};
            $Value = sprintf 'px=%d, dt=%d', $A->{$k1}->{$k2}->{px}, $A->{$k1}->{$k2}->{dt};
            push @List, "$Key3-$Key1-$Key2:$Value";
          }
  }
  my @R = sort @List;
  # local $,="\n"; print @R;# see the sorted array
  return $R[0] =~ s/.+://r;
}


printf "%s\n", SortMyHash $hash1;
printf "%s\n", SortMyHash $hash2;

$>  perl aaa.pl
px=20, dt=20161221
px=30, dt=20161221

xiaoyezi2004

非常感谢， 太漂亮啦！ 回复 4# RE_HASH