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

我有两个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脚本？

最佳答案

像这样的东西：

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