note
fruiture
<p>You're very close:</p>
<code>
foreach( keys %hash2 ){
if( exists $hash1{$_} ){
print "$_ = ",$hash2{$_}*$hash1{$_},"\n";
}
}
</code>
<p>btw.: please don't quote numbers (like '5') if you want them to be numbers and not strings: It's both confusing and (although only in microseconds) slows perl down.</p>
<code>
my %hash = (
dog => 11,
budgie => 1,
#...
)
</code>
-- <br/>
http://[fruiture].de
240025
240025