Shell Programming and Scripting

hhh  2  4  5
KKL  2  3  2
LLP   2  1  2

hhh  3  1  1
KKL  2  1  1
UUI  1  1  1

hhh -1  3  4
KKL  0  2  1

gawk '
FNR==NR{
    for(i=2;i<=NF;i++){
        a[$1,i]=$i
    }
    next
}
(a[$1,2]){
   printf "%s " ,$1
   for(o=2;o<=NF;o++){
        printf "%d ", a[$1,o]-$o
   }
   print ""
}
' file1 file2

paste a.txt b.txt | awk '{
cnt=NF/2
tmp=1+cnt
if($1==$tmp){
  printf $1
  for(i=2;i<=cnt;i++){
    tcnt=i+cnt
    val=$i-$tcnt
    printf(" %s",val)
  }
  print ""
}
}'

my %hash;


open my $f1, "<", "file1" || die "$!";
while(<$f1>){
        chomp;
        my ($word,@arr) = split("\t");
        $hash{$word} = \@arr;
}
close $f1;

open my $f2, "<", "file2" || die "$!";
while(<$f2>){
        chomp;
        my ($word,@arr) = split("\t");
        if (exists $hash{$word}){
                print "$word\t";
                my $i=0;
                foreach (@{$hash{$word}}){
                        print $hash{$word}[$i] - $arr[$i] ."\t";
                        $i++;
                }
                print "\n";
        }
     }
close $f2;

paste <(sort file1) <(sort file2) | awk '$1==$5 { print $1,$2-$6,$3-$7,$4-$8 }'