Блог

Я застрял с тем, что для меня выглядит как простая концептуальная проблема. После тщательного поиска похожих проблем в Интернете и Stack Overflow я не смог найти ничего подобного, поэтому я подумал, что могу спросить вас.

Я создаю структуру данных hash of hash, которая является глубоко вложенной. Глубина может составлять 10-20 раз. Ради этой проблемы я перечисляю только до глубины один.

Я не могу рекурсивно просмотреть приведенный ниже пример хэша в Perl. Я также включил свой код.

Это выдает мне следующую ошибку:

Не удается использовать string («1») в качестве ссылки на ХЭШ, пока «строгие ссылки» используются в

Просто чтобы было понятно: мой хэш обязательно должен иметь определенные ключи со значением 1. Я не могу их избежать.

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

Код для рекурсивного обхода этого хэша:

 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);
    }
}
  

Я не уверен, что вы вызываете analyse_contig_tree_recursively (вы нигде не используете этот $contig_hash параметр, и вы не определили $TAXA_LEVEL : вы имели в виду $TAXA_TREE ?), Но, очевидно, есть несоответствие между вашим макетом структуры данных и вашим шаблоном рекурсивного обхода. Ваша функция обхода предполагает, что все записи являются хэшами, и обрабатывает пустые хэши как случай завершения: если keys %{$TAXA_TREE} пусто, рекурсивный вызов отсутствует. Учитывая ваши данные, вам нужно проверить, является ли значение хэшем или нет, и не выполнять рекурсию, если вы обнаружите, что это не хэш.

 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->{$_});
        }
    }
}