in reply to Using += in array context
At first, I was tempted to overload +=,
but than
I realised that was not going to work, as hashes don't
have any garanteed order.
So you really have to stick with the code you already have. Hmm. You always can write a sub, which names the function out loud:
Alternativeley, if you have only values in the 'table', you can load it into PDL.sub add_hash_slice{ my $slice = shift or return undef; my $hash1 = shift or return undef; my $hash2 = shift or return $hash1; $hash1->{$key} += $hash2->{$key} for my $key( @$slice ); return $hash1; } #call add_hash_slice( \@fields, \%totals, \%delta);
Hope this helpsuse PDL; my $a = pdl $AoA; $total1=sum($a->(':,0'));
Jeroen
"We are not alone"(FZ)
In Section
Seekers of Perl Wisdom