perl - 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);