Come si cammina in modo ricorsivo una struttura di dati hash nidificata?

Question

Sono bloccato con quello che sembra un semplice problema concettuale per me. Dopo aver cercato diligentemente problemi simili su Web e Stack Overflow, non sono riuscito a trovare qualcosa di simile, quindi ho pensato di poterlo chiedere.

Sto costruendo un hash di hash struttura dati che è profondamente annidata. La profondità può essere di 10-20 volte. Per motivi di questo problema, sto elencando solo fino alla prima.

Non riesco a percorrere in modo ricorsivo l'hash di esempio di seguito in Perl. Ho anche incluso il mio codice.

Mi dà il seguente errore:

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

Basta quindi è chiaro: il mio hash è destinato ad avere alcune chiavi con valore 1. Non riesco a evitarli.

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

Codice di camminare in modo ricorsivo questo 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

Non sono sicuro di quello che stai chiamando analyse_contig_tree_recursively su (non si sta usando che $contig_hash parametro da nessuna parte, e non è stata definita $TAXA_LEVEL: intendevi dire $TAXA_TREE?), Ma ovviamente c'è una discrepanza tra il layout della tua struttura dati e il tuo pattern di attraversamento ricorsivo. La tua funzione di attraversamento presuppone che tutte le voci siano hash e tratta gli hash vuoti come caso di terminazione: se keys %{$TAXA_TREE} è vuoto, non c'è una chiamata ricorsiva. Dati i tuoi dati, devi testare se un valore è un hash o no, e non recitare se trovi che non è un 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->{$_}); 
     } 
    } 
}