perl - 如何仅在其键存在时检索 Perl 散列值？

Question

代码:

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

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

}

我只想在很短的时间内实现相同的操作。有什么捷径吗？

Answer 1

我想这就是您要找的:

print $a{$test_value};