返回数组元素的总和 perl

Question

我有一个 MyArray，其内容在 perl 中为“200 500 800 100”。我需要第一个返回 200 的函数，第二次迭代它应该返回我 200+500，下次它应该返回我 200+500+800，直到它总结了所有元素。

   foreach my $i (0 .. $#MyArray)
   {
       @MyArray = (1..$i);     
       $sum += $_ for @MyArray;
   }

我正在尝试做上面提到的事情，但它没有返回任何 $sum

Answer 1

怎么样：

use List::Util qw/sum/;
my @arr = (200, 500, 800, 100);
say sum(@arr[0..$_]) for (0..$#arr);

输出：

200
700
1500
1600

关于List::Util 的文档。