Derefence hash переменной хэша

Question

Как разыменовать такую ​​переменную, чтобы получить «99» и «Проблема в параметре»?

DB<103> print Dumper($error_code); 
    $VAR1 = \{ 
      '99' => 'Problem in Parameter' 
      }; 


    DB<104> x $error_code 
    0 REF(0x30393f34) 
    -> HASH(0x30393ea4) 
     99 => 'Problem in Parameter' 

Answer 1

Как насчет:

my ($key, $value) = each %$$error_code; 
say $key; 
say $value; 

выхода:

99 
Problem in Parameter 

Answer 2

У вас есть ссылки на ссылки. Вы должны удвоить разыменования, сначала в качестве скаляра, чем в виде хэша:

my $error_code = \{ 
    '99' => 'Problem in Parameter' 
}; 
my ($ninety_nine) = keys %$$error_code; 
my $string  = ${$error_code}->{$ninety_nine}; 
print "$ninety_nine, $string\n"; 

Answer 3

У вас есть ссылка на ссылку на хэш. Поэтому вам нужны две разницы.

$error_code A reference to a reference to a hash 
$$error_code A reference to a hash 
%$$error_code A hash 

Так,

my ($key, $value) = %$$error_code; 
say $key; 
say $value;