perl从两个文件中读取相同的行

Question

我有两个具有相同行数的文件,每行包含数值列.

文件示例 A

1 2 3 4
2 3 4 5

文件示例 B

7 8 9 0
6 7 8 9

我想从这两个文件中求和相应行的值,并将结果写入输出文件.

预期产量:

8 10 12 4
8 10 12 14

Answer 1

你可以很容易地做一些像..

while ( not eof $fh1 and not eof $fh2 ) {
   my @vals1 = split /\s+/, <$fh1>;
   my @vals2 = split /\s+/, <$fh2>;

   my @sums = join ' ', map {$vals1[$_] + $vals2[$_]} 0 .. $#vals1;

   print $out $_ for @sums, "\n";
}

输出:

8 10 12 4
8 10 12 14