다차원 해시 정렬 - Perl

Question

이 해시를 이해하고 정렬로 처리하는 데 도움이 필요합니다.

$VAR1 = { 

    Key1:Key1_si => { 

     'KeyA' => { 
      Keya => 'abcd, defg', 
      keyb => '1000', 
      keyc => '80%', 
      keyd => '2011.10.09', 
      keye => '1234-UR-DDDD', 
      keyf => 'rwh', 
      keyg => '600', 
      keyh => 'red', 
      keyi => '900', 
      keyj => '', 
      keyk =>'int4678_tt', 
     }, 

     'KeyB' => { 

      Keya => 'abcd, defg', 
      keyb => '2000', 
      keyc => '100%', 
      keyd => '2011.11.09', 
      keye => '1234-UR-DDDD', 
      keyf => 'rwh', 
      keyg => '500', 
      keyh => 'red', 
      keyi => '400', 
      keyj => '', 
      keyk =>'int4678_tt', 
     }, 
    }, 

}; 

질문 : 여기

는 해시 I 값 변화 'keyc'에 근거하여이 해시를 정렬 할. 그래서, 아래와 같은 기준으로 정렬 할 :

인쇄 :

Key1:Key1_si KeyB Keya keyd Keyc keyf 

Key1:Key1_si KeyA keya keyd Keyc keyf 

또한

Key1:Key1_si->KeyB->Keyc 

Key1:Key1_si->KeyA->keyc 

, 나는 같은 속성의 나머지와 함께 정렬 된 값으로 출력을 갖고 싶어

누군가가 위에서 언급 한 것처럼 정렬을 수행하기 위해 perl의 코드를 도와 주실 수 있습니까? 나는 너의 시간과 노력에 정말로 감사 할 것이다.

Answer 1

키 쌍 목록을 정렬하려면 키 쌍 목록을 작성해야합니다. 배열에 대한 참조가 분명한 대답입니다. 일단이 사실을 알게되면 모든 것이 곧장 끝납니다. 키 그 정렬

my @unsorted_keys; 
for my $k1 (keys(%$VAR1)) { 
    for my $k2 (keys(%{ $VAR1->{$k1} })) { 
     push @unsorted_keys, [ $k1, $k2 ]; 
    } 
} 

: 키 목록을 구축

my @sorted_keys = sort { 
    my ($a_k1, $a_k2) = @$a; 
    my ($b_k1, $b_k2) = @$b; 

    (my $a_pc = $VAR1->{$a_k1}{$a_k2}{keyc}) =~ s/%//; 
    (my $b_pc = $VAR1->{$b_k1}{$b_k2}{keyc}) =~ s/%//; 

    $a_pc <=> $b_pc 
} @unsorted_keys; 

순회 정렬 키 이상 :

for (@sorted_keys) { 
    my ($k1, $k2) = @$_; 
    my $hash = $VAR1->{$k1}{$k2}; 
    ... do stuff with %$hash ... 
}