Comment puis-je récupérer une valeur de hachage Perl uniquement si sa clé existe?

Question

code:

%a = (1 => "ONE" , 
     2 => "TWO" , 
     3 => " Three",); 
$test_value = 1 ; 

foreach $key (sort(keys %a)) { 
    if ($key == $test_value) { 
     print $a{$key}; 
    } 

} 

Je veux juste réaliser la même opération de façon très courte. Y a-t-il un raccourci pour ça?

Answer 1

Je pense que c'est ce que vous cherchez:

print $a{$test_value}; 

Answer 2

En supposant que le $ test_value serait une variable de quelque sorte que vous voudrez peut-être quelque chose comme

if(defined($a{$test_value})){ 
    print $a{$test_value}; 
} 

ou même

print $a{$test_value} if(defined($a{$test_value})) 

en fonction de la façon dont readab le vous voulez :-)

Answer 3

Illisible? :)

Ce oneliner vous donnera la même chose:

defined $a{$testvalue} and print $a{$testvalue}; 

Answer 4

print $a{$test_value} if exists $a{$test_value}; 

Answer 5

Essayez ceci:

my @tt = map {$_, if $_ == $test_value} keys %a; 
print "\n @tt"; 

Answer 6

Comme il est un tableau de hash vous devez d'abord aller à ce tableau puis accédez à l'élément par sa valeur de clé.

print "${@{$h{LMN}{xyz}{c}}[2]}{Number}";