arrays - 如何在 Perl 中按元素求和数组？

Question

我有两个数组:

@arr1 = ( 1, 0, 0, 0, 1 );
@arr2 = ( 1, 1, 0, 1, 1 );

我想对两个数组的项目求和以获得新的项目

( 2, 1, 0, 1, 2 );

我可以在不循环数组的情况下做到这一点吗？

Answer 1

对于 Perl 5:

use List::MoreUtils 'pairwise';
@sum = pairwise { $a + $b } @arr1, @arr2;