Shell Programming and Scripting

1 2 3 4 5 6 7 8
9 10 11 12

-1 -2 -3 -4 -5 -6 5 -8
0 3 0 0

0 0 0 0 0 0 6 0
4.5 6.5 5.5 6

Begin{START of the process}
FNR==NR {
for(i=1; i<=NF; i++)
     a[i, FNR]=$i
nf=NF;nr=FNR
next
}
{
for(i=1; i<=NF; i++)
    b[i, FNR]=$i
nbf=NF;nbr=FNR
}
{
  for(f=1; f<=nf;f++)
     for(r=1; r<=nr;r++)
       {if(r==nr)
           {print "\n"}
        else 
           {val=$((a[f,r]+b[f,r])/2);printf("%f",val)}
}
END{DONE with the process}

awk -f abc aaa bbb > out

a.txt
1 2 3 4 5 6
10 34 25 68 56
10 20 30 40
19 67 33
13 19
3

b.txt
12 13 4 5 67 78
13 14 16 46 56
34 45 56 67
39 33 34
45 44
56

6.5 7.5 3.5 4.5 36 42
11.5 24 20.5 57 56
22 32.5 43 53.5
29 50 33.5
29 31.5
29.5

#!/usr/bin/perl
sub leo{
	my($ref1,$ref2,@t)=(@_);
	my @t1=@{$ref1};
my @t2=@{$ref2};
	for($j=0;$j<=$#t1;$j++){
		push @t,($t1[$j]+$t2[$j])/2;
	}
	return \@t;
}
open FH,"<a.txt";
while(<FH>){
	$a[$.]=$_;
}
close FH;
open FH,"<b.txt";
while(<FH>){
	$b[$.]=$_;
}
for($i=1;$i<=$#a;$i++){
	my @t1=split(" ",$a[$i]);
	my @t2=split(" ",$b[$i]);
	my $ref=leo(\@t1,\@t2);
	print join " ",@{$ref};
	print "\n";
}

awk '{
  getline line < "bbb.txt"
  split(line,a)
  for(i=1;i<=NF;i++) {
    ORS=i==NF?"\n":" "
    print (a[i]+$i)/2
  } 
}' aaa.txt