如何在Perl中找到两个不同数组中所有值的总和?

Hel*_*rld 0 arrays perl sum

如何在Perl中找到两个不同数组的所有值的总和?

@array1 = (1, 2, 3);
@array2 = (10, 10, 10);
Run Code Online (Sandbox Code Playgroud)

@sumofarray1and2 = ?

所以我想我可以在这里做两件事.我可以做两个foreach循环并添加内容,@array1然后@array2首先得到两者的总和.

Eug*_*ash 9

my $sum = 0;
$sum += $_ for (@array1, @array2);
Run Code Online (Sandbox Code Playgroud)

  • 模块很酷,而且一切都很酷,但是看到人们推荐一个可以通过两行传统Perl完成的模块,这让我很烦恼.如果你倾向于使用语言或者提出一个简单的问题,那么找出如何在没有模块的情况下完成工作往往是一种更有价值的体验. (2认同)