Shell Programming and Scripting

L194 A -118.2             
L194 B -115.1             
L194 C -118.7             
L196 A 0                  
L196 C 0                  
L197 A -111.2             
L197 B -118.9             
L197 C -119.9             
L199 A -120.4             
L199 B -119.9             
L199 C -120.3             
L207 A -120.5             
L207 B -119.0             
L207 C -118.9             
L212 A -118.5             
L212 B -119.9             
L212 C -119.5

No.   A      B        C 
L194 -118.2 -115.1 -118.7 
L196 0      n/a       0   
L197 -111.2 -118.9 -119.9 
L199 -120.4 -119.9 -120.3 
L207 -120.5 -119.0 -118.9 
L212 -118.5 -119.9 -119.5

[user@home-pc ~]$ cat file
L194 A -118.2
L194 B -115.1
L194 C -118.7
L196 A 0
L196 C 0
L197 A -111.2
L197 B -118.9
L197 C -119.9
L199 A -120.4
L199 B -119.9
L199 C -120.3
L207 A -120.5
L207 B -119.0
L207 C -118.9
L212 A -118.5
L212 B -119.9
L212 C -119.5 
[user@home-pc ~]$ perl -ane 'BEGIN { printf "%-10s%-10s%-10s%-10s\n", "No.", "A", "B", "C" }
$x{$F[0]}{$F[1]} = $F[2];
END {
    for (sort keys %x) {
        ! defined $x{$_}{A} && ($x{$_}{A} = "n/a");
        ! defined $x{$_}{B} && ($x{$_}{B} = "n/a");
        ! defined $x{$_}{B} && ($x{$_}{C} = "n/a");
        printf "%-10s%-10s%-10s%-10s\n", $_, $x{$_}{A}, $x{$_}{B}, $x{$_}{C};
    }
}' file
No.       A         B         C
L194      -118.2    -115.1    -118.7
L196      0         n/a       0
L197      -111.2    -118.9    -119.9
L199      -120.4    -119.9    -120.3
L207      -120.5    -119.0    -118.9
L212      -118.5    -119.9    -119.5
[user@home-pc ~]$

NR == FNR{ c[$2]=1; next }
{ r[$1]++; l[$1,$2] = $3 }
END {
    printf("No.");  for (i in c) printf("\t%s",i); printf("\n");
    for (i in r) {
        printf("%s",i);
        for (j in c) {
            if (l[i,j]=="") { o = "n/a" } else { o = l[i,j] }
            printf("\t%s", o);
        }
        printf("\n");
    }
}

awk -f myawk.awk file file