如何在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]