arrays - 配列の対応する/それぞれの値を変数に追加するPerl

Question

配列にいくつかのスカラー値があります

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

これらの値を次のように変数に直接代入できます。

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

$x +=10; のような @array 番号の対応する値を追加できる方法はありますか?

($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

sumfromを使用して、配列のすべての要素を合計できますList::Util。

use List::Util qw(sum);

my $sum = sum(@array);

---

更新: 要素ごとに配列を追加したいようで、pairwisefromを使用できます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)