两个数组之间的Perl循环

Question

@a1 = qw(1 2 3) 
@a2 = qw(1 2 3 4 5)

看起来将a1和a2之间的计算结果作为a2 [0]的值插入。 例子是1 + 1 = 2进入a2 [0]等于2，那么下一个计算将是2 + 2（a2 [0] + a1 [1]）导致a2 [0] = 4，然后是4 + 3 （a2 [0] + a1 [2]）的结果为a2 [0] = 7，然后移至a2中的下一行并针对a1执行相同的功能。

全部说完之后，结果将来自print @a2;

7 8 9 10 11

Answer 1

因此，实质上，您是将第一个数组中的值的总和添加到第二个数组中的每个元素。

my $total = 0;
($total += $_) for @a1;
($_ += $total) for @a2;

Answer 2

使用相关列表功能：

#!/usr/bin/env perl

use strict;
use warnings;

use List::Util      qw( sum   );
use List::MoreUtils qw( apply );

my @a1 = qw( 1 2 3     );
my @a2 = qw( 1 2 3 4 5 );

my $sum = sum(@a1);

@a2 = apply { $_ += $sum } @a2;

参考：

• 列表::的Util
• 列表:: MoreUtils

另请参阅Fergal的答案 ，在这种情况下，该答案更简单。