如何將兩個列表按元素求和

Question

我想逐行解析一個文件，每個文件都包含兩個整數，然後將這些值求和成兩個不同的變量。我天真的做法是這樣的：

my $i = 0; 
my $j = 0; 
foreach my $line (<INFILE>) 
{ 
    ($i, $j) += ($line =~ /(\d+)\t(\d+)/); 
} 

但它產生以下警告：

在無效的情況下

沒用使用私有變量的暗示訴諸+ =操作觸發器以標量而不是列表上下文評估左側（如果我在這一點上錯誤，請糾正我）。

是否有可能實現這個優雅（可能在一行）而不訴諸數組或中間變量？

---

相關問題：How can I sum arrays element-wise in Perl?

Answer 1

不，這是因爲表達($i, $j) += (something, 1)解析如添加1到$j才，留$i掛在無效的情況下。 Perl 5沒有超級運算符或自動壓縮分配運算符，如+=。這工作：

my ($i, $j) = (0, 0); 
foreach my $line (<INFILE>) { 
    my ($this_i, $this_j) = split /\t/, $line; 
    $i += $this_i; 
    $j += $this_j; 
} 

您可以通過使用複合數據結構而不是命名變量爲列避免重複。

Answer 2

首先，您添加數組的配對方式不起作用（您發佈的相關問題本身會給出一些提示）。

而對於解析部分：如何分割線？如果你的線路是相應的格式（空格不應該是一個問題）。

split(/\t/, $line, 2) 

如果你真的想這樣做在同一行，你可以做這樣的事情（雖然我不認爲你會稱它爲優雅）：

my @a = (0, 0); 
foreach my $line (<INFILE>) 
{ 
    @a = map { shift(@a)+$_ } split(/\t/, $line, 2); 
} 

對於輸入的@lines = ("11\t1\n", " 22 \t 2 \n", "33\t3");它給我的@a = (6, 66)

我會建議你使用我的回答的分裂部，但不是加起來部分。使用多條線是沒有錯的！如果它讓你的意圖更清楚，更多的線條比一個更好。但是，除了再次聲明，我幾乎沒有使用時下perl的，但蟒蛇代替，讓我的Perl編程風格可能有一個「壞」的影響力有...

Answer 3

這裏的另一種選擇：

use Modern::Perl; 

my $i = my $j = 0; 

map{$i += $_->[0]; $j += $_->[1]} [split] for <DATA>; 

say "$i - $j"; 

__DATA__ 
1 2 
3 4 
5 6 
7 8 

輸出：

16 - 20 

Answer 4

這是完全可能的交換對每個添加，這意味着你總是添加到每一對相同的元素。 （如果需要，這概括爲旋轉多元件陣列。）

use strict; 
use warnings; 

my @pair = (0, 0); 

while (<DATA>) { 
    @pair = ($pair[1], $pair[0] + $_) for /\d+/g; 
} 

print "@pair\n"; 

__DATA__ 
99 42 
12 15 
18 14 

輸出

129 71