How can I retrieve a Perl hash value only if its key exists?

Question

Code:

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

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

}

I just want to achieve the same operation in very short way. Is there any shortcut for this?

Answer 1

I think this is what you're looking for:

print $a{$test_value};

Answer 2

Assuming that the $test_value would be a variable of some sort you might want something like

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

or even

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

depending on how readable you want it :-)

Answer 3

Readable? :)

This oneliner will give you the same thing:

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

Answer 4

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