perl脚本使用的总计数列表编号

Question

我想通过perscript计算foreach中的数字列表，

my @error_list = (10, 10, 15);

foreach my $key (@error_list){


}

我需要总价值为$ var = 35;用于打印

使用示例

Answer 1

你真的应该至少自己尝试一下，但List::Util有解决方案：

use strict;
use warnings;

use List::Util 'sum';

my @error_list = (10, 10, 15);

my $total = sum @error_list;

Answer 2

my @error_list = (10, 10, 15);
my $total = 0;
foreach my $key (@error_list){
   $total += $key;
}

这是最简单的方法 - 还有其他方法可以把它变成一个班轮。

$total = 0;
grep($total += $_, @error_list);