小编use*_*069的帖子

我有大约50个数组填充数字,我必须报告每个数组的所有这些元素的总和,所以最终结果有50个单独的数组.

有没有更短的方法来做,而不是为每个阵列写不同的循环？

我是perl的初学者.任何有用的意见/建议将不胜感激.

到目前为止这是我的代码:

for( $j = 1 ; $j <= 50 ; $j++ ) {
  for ( @arr[$j] ) {
    $sum[$j] += $_;
  }
  print $sum[$j];
}

谢谢!