找不到问题出在哪里, 请帮忙

sunzhiguolu

回复 9# zhlong8
要不, 大神来一个?

   

sunzhiguolu

再来,

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub get_min_item{
   
6.     my ($luck, $hash, %hData, @aData, $minDate) = (@_);
   
7.     foreach my $k (keys %$hash){
   
8.         my ($num, $item) = map {$_, $hash->{$k}{$_}} sort {$a <=> $b} keys %{$hash->{$k}};
   
9.         push (@aData, [$k, $num, @$item{'px', 'dt'}]);
   
10.     }
    
11.     my ($px, $dt);
    
12.     foreach my $item (grep {$minDate = $_->[-1] if (!$minDate); $minDate eq $_->[-1]} sort {$a->[-1] <=> $b->[-1] and $a->[1] <=> $b->[1]} @aData){
    
13.         ($px, $dt) = @{$item}[2, -1] if (!$px);
    
14.         if ($item->[0] eq uc ($luck)){
    
15.             ($px, $dt) = @{$item}[2, -1];
    
16.             last;
    
17.         }
    
18.     }
    
19.     ($px, $dt);
    
20. }
    
21. 
    
22. my $hash1 = +{
    
23. 'CSH' => { '3' => {'px' => 20, 'dt' => '20161221'}, '4' => {'px' => 10, 'dt' => '20161221'} },
    
24. 'OTH' => { '1' => {'px' => 30, 'dt' => '20161221'}, '2' => {'px' => 40, 'dt' => '20171221'} },
    
25. 'ABC' => { '2' => {'px' => 10, 'dt' => '20191221'}, '3' => {'px' => 25, 'dt' => '20201221'} },
    
26. };
    
27. 
    
28. my $hash2 = +{
    
29. 'OTH' => {'1' => {'px' => 30, 'dt' => '20161221'}, '2' => {'px' => 40, 'dt' => '20171221'}},
    
30. 'ABC' => {'2' => {'px' => 10, 'dt' => '20191221'}, '3' => {'px' => 25, 'dt' => '20201221'}},
    
31. };
    
32. 
    
33. printf("'px' = %d, 'dt' = '%d'\n",get_min_item ('csh', $_)) for ($hash1, $hash2);
    

复制代码

jason680

回复 10# sunzhiguolu

get minimum without sort
$ perl get_min.pl
CSH, 3, px=20, dt=20161221
OTH, 1, px=30, dt=20161221

$ cat get_min.pl
#!/usr/bin/perl
use strict;
use warnings;

sub get_min{
    my ($luck1, $hash) = (@_, 0);
    my ($sMin1, $sMin2, $luck2) =("","","");
    foreach my $sKey1 (keys %{$hash}){
      $sMin1 = $sKey1 if($sMin1 eq "");
      foreach my $sKey2(keys %{$hash->{$sKey1}}){
        $sMin2 = $sKey2 if($sMin2 eq "");
        if($sKey1 eq $luck1){
          $luck2 = $sKey2 if($luck2 eq "");
          if($hash->{$luck1}{$luck2}{'dt'}  > $hash->{$luck1}{$sKey2}{'dt'} ||
             $hash->{$luck1}{$luck2}{'dt'} == $hash->{$luck1}{$sKey2}{'dt'} &&
             $luck2 > $sKey2 ){
             $luck2 = $sKey2;
          }
        }
        if($hash->{$sMin1}{$sMin2}{'dt'}  > $hash->{$sKey1}{$sKey2}{'dt'} ||
           $hash->{$sMin1}{$sMin2}{'dt'} == $hash->{$sKey1}{$sKey2}{'dt'} &&
            $sMin2 > $sKey2 ){
          $sMin1 = $sKey1;
          $sMin2 = $sKey2;
          next;
        }  
      }
    }
    if(exists $hash->{$luck1}){
      if( $hash->{$sMin1}{$sMin2}{'dt'} >= $hash->{$luck1}{$luck2}{'dt'}){
        $sMin1 = $luck1;
        $sMin2 = $luck2;
      }
    }
    return ($sMin1,$sMin2);
}

my $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'}},
};

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

foreach($hash1, $hash2){
  my($sK1, $sK2) =  get_min ('CSH', $_);
  my $sKey = $hash1->{$sK1}{$sK2};
  print "$sK1, $sK2, px=$sKey->{'px'}, dt=$sKey->{'dt'}\n";
}




   

zhlong8

回复 11# sunzhiguolu


    不知道代码想干嘛，一会函数风格一会 min px 两个状态

yinyuemi

回复 12# sunzhiguolu

1. use Data::Dumper;
   
2. (my $res) =  (sort{$a->{'dt'} <=> $b->{'dt'}}map{my $l=$_;map{$hash1->{$l}{$_}}keys %{$hash1->{$l}}}keys %{$hash1});
   
3. print Dumper $res;
   

复制代码