我有两个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脚本？
最佳答案
像这样的东西：
原文链接：https://www.f2er.com/linux/440159.htmluse 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
