Jak rekurencyjnie przejść strukturę zagnieżdżonych danych hashowych?

Question

Utknąłem z czymś, co wydaje mi się prostym problemem koncepcyjnym. Po pilnym szukaniu podobnych problemów w Internecie i przepełnieniu stosu nie mogłem znaleźć czegoś podobnego, więc pomyślałem, że mogę cię zapytać.

Buduję mieszanie struktury hashowej, która jest głęboko zagnieżdżona. Głębokość może wynosić 10-20 razy. Ze względu na ten problem wymieniam tylko do pierwszej głębokości.

Nie mogę rekurencyjnie przejść przez przykładowy skrót w Perlu. Zawarłem również mój kod.

Daje mi następujący błąd:

Can't use string ("1") as a HASH ref while "strict refs" in use at

Tak więc jest oczywiste: my hash jest związana mieć pewne klucze o wartości 1. Nie można ich uniknąć.

$VAR1 = { 
    'Eukaryota' => { 
     'Rhodophyta'   => {'count' => 5}, 
     'Alveolata'   => {'count' => 16}, 
     'stramenopiles'  => {'count' => 57}, 
     'count'    => 155, 
     'Glaucocystophyceae' => {'count' => 1}, 
     'Cryptophyta'  => {'count' => 18}, 
     'Malawimonadidae' => {'count' => 1}, 
     'Viridiplantae'  => {'count' => 57}, 
    }, 
    'Bacteria' => { 
     'Cyanobacteria'  => {'count' => 1}, 
     'Actinobacteria'  => {'count' => 4}, 
     'count'    => 33, 
     'Proteobacteria'  => {'count' => 25}, 
     'Deinococcus-Thermus' => {'count' => 2}, 
     'Firmicutes'   => {'count' => 1}, 
    }, 
}; 

Kod rekursywnie chodzić ten hash:

sub analyse_contig_tree_recursively { 
    my $TAXA_TREE = shift @_; 
    my $contig_hash = shift @_; 
    foreach (keys %{$TAXA_TREE}) { 
     print "$_ \n"; 
     analyse_contig_tree_recursively($TAXA_LEVEL->{$_}, $contig_hash); 
    } 
} 

Answer 1

nie jestem pewien co dzwonisz analyse_contig_tree_recursively na (nie używasz że $contig_hash parametr w dowolnym miejscu, a nie zdefiniowano $TAXA_LEVEL: czy miałeś na myśli $TAXA_TREE?), Ale jest oczywiście niedopasowanie między układem struktury danych a rekurencyjnym wzorcem przejścia. Twoja funkcja traversal zakłada, że ​​wszystkie wpisy są hashami i traktuje puste hashe jako przypadek zakończenia: jeśli keys %{$TAXA_TREE} jest pusty, nie ma rekursywnego wywołania. Biorąc pod uwagę twoje dane, musisz sprawdzić, czy wartość jest hash, czy nie, i nie powtarzaj się, jeśli okaże się, że nie jest hash.

sub analyse_contig_tree_recursively { 
    my $TAXA_TREE   = shift @_; 
    foreach (keys %{$TAXA_TREE}){ 
     print "$_ \n"; 
     if (ref $TAXA_TREE->{$_} eq 'HASH') { 
      analyse_contig_tree_recursively($TAXA_TREE->{$_}); 
     } 
    } 
}