我有两个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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。