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

Question

我在数组中有一些标量值

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

我们可以直接将这些值分配给变量

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

是否有某种方法可以添加@array数字的相应值 $ x + = 10;

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

很抱歉问这样愚蠢的问题;）

Answer 1

尝试使用map

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

Answer 2

您可以使用sum中的List::Util来汇总数组的所有元素：

use List::Util qw(sum);

my $sum = sum(@array);

---

<强>更新： 您似乎希望逐个元素添加数组，然后您可以使用pairwise中的List::Moreutils：

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)