Perl hash

[Lyn Reynolds]

Does anyone know how I obtain the sums of a perl hash by key ?

Thanks

[Ralph Grothe]

Could you please clarify what you mean?

If you mean to get all the keys of a hash
that would simply be

@keys = keys %hash;

Or do you want to sum up the values?

map $sum+=$_, values %hash;

[James R. Ferguson]

Hi Lyn:

There are many ways. In addition to Ralph's you could do:

# perl -le '%val=("a"=>10,"b"=>20,"c"=>30);for $key (keys %val) {$sum+=$val{$key}};print $sum'
60

# perl -le '%val=("a"=>10,"b"=>20,"c"=>30);$sum+=$val while (($key,$val)=each %val);print $sum'
60

Regards!

...JRF...