使用AWK从两个文件中构造n个列

Question

我有两个N列数的文件

文件1:

A   1   2    3  .......  Na1
B   2   3    4  .......  Nb1

文件2:

A   2   2    4  .......  Na2
B   1   3    4  .......  Nb2

我想要一个输出,其中File1的第一列值将从File2的第一列中减去,这样直到N列,如下所示:

A  -1   0    -1  ........ (Na1-Na2)
B   1   0     0  ........ (Nb1-Nb2)

如何做到这一点是在Linux环境下的AWK或Perl脚本？

Answer 1

像这样的东西：

use strict;
use warnings;

my (@fh, @v);
for (@ARGV) {
  open (my $handle, "<", $_) or die ("$!: $_");
  push @fh, $handle;
}
while (@v = map { [split ' ', <$_> ] } @fh and defined shift @{$v[0]}) {
  print join(" ", (shift @{$v[1]}, map { $_ - shift(@{$v[1]}) } @{$v[0]})), "\n";
}
close $_ for (@fh);

跑步：

 perl script.pl input1 input2