Получить значение из хэша хэшей

Question

Я хотел бы получить значение из хеша хешей, но я этого не делаю. Мой код:

sub test { 
    my $filename = $_[0]; 
    open INFILE, ${filename} or die $!; 
    my %hashCount; 
    my @firstline = split('\t',<INFILE>); 
    shift(@firstline); 
    while (my $line = <INFILE>) 
    { 
     my %temp; 
     chomp($line); 
     my @line = split('\t', $line); 
     foreach my $cpt (1..$#line) { 
      $temp{$firstline[$cpt-1]}=$line[$cpt]; 
     } 
     $hashCount{$line[0]}={%temp}; 
    } 
    return %hashCount; 
} 
sub get_hash_of_hash { 
    my $h = shift; 
    foreach my $key (keys %$h) { 
     if(ref $h->{$key}) { 
      get_hash_of_hash($h->{$key}); 
     } 
     else { 
      say $h->{$key}; 
     } 
    } 
} 

И когда я показывать мой хэш:

$VAR10679 = 'M00967_43_1106_2493_14707'; 
$VAR10680 = { 
      'A' => '1', 
      'B' => '0', 
      'C' => '1', 
      'D' => '0', 
      'E' => '0' 
     }; 

Моя первая функция возвращает мой хэш хэшей и я получу конкретное значение со второй функцией. Поэтому я хочу, чтобы получить значение как то:

my %hashTest = test("FILE.txt"); get_hash_of_hash(%hashTest,"M00967_43_1106_2493_14707","A") //return value '1'

Answer 1

Вы можете либо доступ вложенных элементов, как

$hash{keyA}{keyB} 

или мы можем написать функцию, которая прогуливается структуру данных, как

sub walk { 
    my ($hashref, @keys) = @_; 
    my $pointer = $hashref; 
    for my $key (@keys) { 
    if (exists $pointer->{$key}) { 
     $pointer = $pointer->{$key}; 
    } else { 
     die "No value at ", join "->", @keys; 
    } 
    } 
    return $pointer; 
} 

, который может быть использован как

my %hash = (
    'M00967_43_1106_2493_14707' => { 
     'A' => '1', 
     'B' => '0', 
     'C' => '1', 
     'D' => '0', 
     'E' => '0' 
    }, 
); 
say walk(\%hash, 'M00967_43_1106_2493_14707', 'A'); 

---

Примечание: При использовании Data :: Dumper, передавать ссылки функция Dump:

print Dump \%hash; # not print Dump %hash 

Это необходимо, чтобы показать правильную структуру данных.

Answer 2

Ваш хэш держит references в хэши.

Вы можете получить доступ к ним, как это:

$hashTest{'M00967_43_1106_2493_14707'}{'A'}; 

Смотрите perlref для получения дополнительной информации

Answer 3

Используйте эту подпрограмму ..

sub get_hash_of_hash { 
     my $h = shift; 
     foreach my $key (keys %$h) { 
      if(ref $h->{$key}) { 
       get_hash_of_hash($h->{$key}); 
      } 
      else { 
       print $h->{$key}; 
      } 
     } 
    }