perl - perl スクリプトで使用する総カウント リスト数

Question

perscriptでforeachの数値のリストを計算したいのですが、

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

foreach my $key (@error_list){


}

一部の $var = 35; として合計値が必要です。印刷用

例を挙げてください

Answer 1

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

は最も簡単な方法です。1 つのライナーにする方法は他にもあります。

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