perl - hash的元素如何求和？

Question

您好，我有一个散列，其中键是 3 位代码，值是该代码下的元素数。我想求和 3digit 代码并乘以元素的数量，然后最后将它们相加。示例:

000 23
012 42
222 34

[(0+0+0)*23]+[(0+1+2)*42]+[(2+2+2)*34]=0+126+204=330

所以我试过了

foreach my $key (sort keys %hash ){      
@arrSum=split(//, $key);
   foreach $i (@arrSum){    
     $sum+=$i;
     $value=$sum*$hash{$key};
   }    
}

它不起作用。它实际上必须考虑每一行，而不是一次汇总所有 3 位代码。需要一些帮助。

Answer 1

这里有更多functional解决问题的方法，它还使用来自 List::Util 的 sum :

use List::Util qw(sum);

my %hash = qw(
    000 23
    012 42
    222 34
);

print sum(map { sum(split //) * $hash{$_} } keys %hash);     # 330