Как разыменовать только хэш хэш массива в Perl?

Question

{  
    'A' =>  ['B'], //hash of array 
    'C' => {'D' => [ 'E']} //hash of hash of array  
} 

При попытке проанализировать хеш массива. получение «Не ссылка HASH» ошибка. Даже я пытался использовать существующие и определенные ключевые слова, чтобы избежать этой ошибки. Но результат такой же.

Сверху мне нужно только перебирать хэш хэш массива.

foreach my $keys (keys %$hash){ 
     print "$keys"; 
    if (defined $hash->{$keys}->{maptype}){ 
      foreach my $array_element (@{$hash->{$keys}->{'D'}}) { 
         print "$array_element"); 
      } 
     } 
    } 

Answer 1

Не уверен, что это лучшая практика, но:

my $hash = { A => ['B'], C => {D => ['E'], F => [qw(G H I)]}, J=>42 }; 

for my $key (keys %$hash) { 
    if (ref $hash->{$key} eq 'HASH') { 
     for my $subkey (keys %{$hash->{$key}}) { 
      say "$key => $subkey => [", join(",", @{$hash->{$key}{$subkey}}), "]"; 
     } 
    } 
} 

выходы

C => D => [E] 
C => F => [G,H,I]