Shell Programming and Scripting

gaurav@localhost:~$ cat file1 
5
6
7
8
9
gaurav@localhost:~$ cat file2 
1 2 3 4 5
5 4 3 2 1
1 2 3 4 5
1 2 3 4 5
5 4 3 2 1
gaurav@localhost:~$ perl -e 'open(F1,"<file1");open(F2,"<file2");while(($l1=<F1>)&&($l2=<F2>)) {foreach (split(/\s+/,$l2)){ print $_ - $l1," ";}print "\n"}close(F1);close(F2);'
-4 -3 -2 -1 0 
-1 -2 -3 -4 -5 
-6 -5 -4 -3 -2 
-7 -6 -5 -4 -3 
-4 -5 -6 -7 -8 
gaurav@localhost:~$

awk '{getline x<f; for(i=1;i<=NF;i++)$i=$i-x}1' f=file1 file2

    set file1 = $fin1.vtab
    set file2 = $fin2.vtab
    perl -e ' open(F1,"<$file1"); open(F2,"<$file2");    \
      while( ($l1=<F1>) && ($l2=<F2>) ) {                    \
        foreach (split(/\s+/,$l2)) { print $_ - $l1," "; }    \
        print "\n"                                                                          \
      }                                                                                           \
      close(F1); close(F2); ' > $fin1-$fin2.vtab