Arrays Perl将数组的相应值添加到变量

我在数组中有一些标量值

@array=(1,2,3,4,5);

我们可以直接将这些值分配给变量，如下所示

($a,$b,$c,$d,$e)=@array;

是否有某种方法可以添加@array number的相应值，如 $x+=10

($a,$b,$c,$d,$e) +=@array;

---

很抱歉问了这么愚蠢的问题；）

您可以从

List:：Util

使用

sum

对数组的所有元素求和：

use List::Util qw(sum);

my $sum = sum(@array);

---

更新： 似乎您希望逐个元素添加数组，然后可以使用

List:：Moreutils

中的

pairwise

：

use List::MoreUtils qw(pairwise);

my @array = qw(10 20 30);
my @incr  = qw( 1  2  3);
pairwise { $a += $b } @array, @incr;   # (11,22,33)

---

尝试使用

map

my @array=(1,2,3,4,5);
my ($a,$b,$c,$d,$e) = map { $_ + 10 } @array;

---

我不需要数组中所有元素的总和，而是需要变量$a、$b、$c的值。。通过数组中的相应值进行增加，仅

my$i=0；映射{$\+=$array[$i]；$i++}（$a，$b，$c，$d，$e）

@Suic感谢n+1这是我正在使用的解决方案…因为我不必重新分配变量的值