添加数组列表 perl

Question

我有一个文本文件，其中包含由空行分隔的数字列表，如下所示- 我想添加所有第一个 (20.187+19.715+20.706...) 、第二个元素 (15.415+14.726+15.777) 等等 要获得第一个、第二个、第三个等每个元素的总和，

20.187 15.415  8.663  6.001  6.565  6.459  6.564 ..

19.715 14.726  8.307  5.833  6.367  6.089  6.444 ..

20.706 15.777  9.185  6.546  7.327  7.172  7.084 ...

因为它们*没有按列排列*我如何将数组的元素相加。

Answer 1

使用 split 获取所有字段。跟踪数组中的运行总计（其索引映射到文件中的列）。

像这样的事情：

while (<$file>)
{
  chomp;
  my $index = 0;
  $total[$index++] += $_ for split;
}

请注意，默认情况下 split 在空格上拆分。如果您愿意，可以使用其他分隔符。

---

编辑：遗憾的是，既然问题已经澄清，这个答案毫无用处。请改用布莱恩·罗奇的答案。

Answer 2

编辑：从澄清的问题来看，需要处理空行以及一系列数字被分成多行的可能性。

my @totals;
my @currentVals;

while (my $line = <FILE>)
{
    chomp($line);
    if ($line eq "")
    {
        for ($i = 0; $i < @currentVals; $i++)
        {
            @totals[$i] += @currentVals[$i];
        }    
        @currentVals = ();
    }
    else
    {
        push @currentVals,  split(' ', $line);
    }

}

这应该可以满足您的要求。您需要不断添加到 currentVals 数组中，直到遇到空行，然后进行数学计算。

Answer 3

use strict;
use warnings;

# Paragraph mode (so that blank lines become our input delimiter).
local $/ = "\n\n";

my @totals;

while (<>){
    my $i;
    $totals[$i++] += $_ for split;
}

Answer 4

您可以尝试这样的操作：

my @sum;
while (<>) {
    chomp;
    my @items = split /\s+/;
    for (my $i=0; $i<@items; $i++) {
        $sum[$i] += $items[$i];
    }
}

$sum[$i] 将包含列$i 的总计。

或者，稍微“​​毁灭”一点：

my @sum;
while (<>) {
    chomp;
    my @items = split;
    for my $i (0 .. $#items) {
        $sum[$i] += $items[$i];
    }
}