Hash issues

[Nicpetbio23!]

I have two hashes.

 
%out : $key, $value
%ret : $key1, $value1

If $value1 is equal to $key I want to print "$key1:$value1:$value\n" Why doesn't this work?

if ( $ret{$value1} eq $out{$key} ){
      print "$ret{$key1}:$ret{$value1}:$out{$value}\n";
}

[choroba]

Make Perl tell you why it doesn't work:

if ($ret{$value1} eq $out{$key}) {
      print "$ret{$key1}:$ret{$value1}:$out{$value}\n";
} else {
    print "'$ret{$value1}' and '$out{$key}' are different.\n";
}

[huck]

If $value1 is equal to $key I want to print "$key1:$value1:$value\n" Why doesn't this work?

if you want to test what you said above you would say

if ( $value1 eq $key ){
...; 
}

[roboticus]

Nicpetbio23!:

You don't reference a hash from the values, but from the keys. So $ret{$value1} isn't going to give you what you want. You really need something like $ret{$key1} to get value 1. So you probably want to create a reversed hash:

my %reversed_ret = (reverse %ret);

Then you can check for $reversed_ret{$value1}. Note: there's a problem with reversing a hash like this: If you have the same value1 for multiple keys, then that value will return only the last key you added to the reversed hash.

...roboticus

When your only tool is a hammer, all problems look like your thumb.