perl - 如何在perl中减去2个不同数组中的值？

Question

嗨，我有两个包含 4 列的数组，我想从 array1 的 column1 中的值中减去 array2 的 column1 中的值，从 array1 的 column2 中减去 array2 的 column2 中的值，等等..示例:

my @array1=(4.3,0.2,7,2.2,0.2,2.4)
my @array2=(2.2,0.6,5,2.1,1.3,3.2)

所以所需的输出是

2.1 -0.4 2     # [4.3-2.2] [0.2-0.6] [7-5]
0.1 -1.1 -0.8  # [2.2-2.1] [0.2-1.3] [2.4-3.2]

为此，我使用的代码是

my @diff = map {$array1[$_] - $array2[$_]} (0..2);          
print OUT join(' ', @diff), "\n";

我现在得到的输出是

2.1 -0.4 2
2.2 -1.1 3.8

再次使用第一行而不是第二行中的第一行，我该如何克服这个问题？

我需要在 3 列的行中输出，就像我上面显示的那样，所以我只是在 3 个值的行中填充了我的数组。

Answer 1

这将产生请求的输出。但是，我怀疑(根据您的评论)，如果您只显示原始输入，我们可以产生更好的解决方案。

use strict;
use warnings;

my @a1 = (4.3,0.2,7,2.2,0.2,2.4);
my @a2 = (2.2,0.6,5,2.1,1.3,3.2);
my @out = map { $a1[$_] - $a2[$_] } 0 .. $#a1;

print "@out[0..2]\n";
print "@out[3..$#a1]\n";