Shell Programming and Scripting

[akshay@aix tmp]$ cat 1
A A A A B B B B C C C C
1 0 1 0 2 1 4 5 3 4 5 6
2 0 0 2 3 5 70 100 1 0 90 99
5 6 7 8 1 2 3 2 3 5  5 3

[akshay@aix tmp]$ awk 'NR==1 {
   for(i=1;i<=NF;i++) {
      G[i]=$i
      if (!($i in C)) {
          C[$i];
          H[++cols]=$i
      }
   }
   for(i=1;i<=cols;i++) printf "%s\t", H[i]
   printf "\n"
   next
}
{
 for(i=1;i<=NF;i++) T[G[i]]+=$i
 for(i=1;i<=cols;i++) {
     printf "%s\t",0+T[H[i]]
     T[i]=0
 }
 printf "\n"
} ' 1

A    B    C    
2    12    18    
6    190    208    
32    198    224

 awk 'NR==1{
             for(i=1;i<=NF;i++){
                                          A[$i]++
                                          if(A[$i]==1){
                                                        B[i]=$i
                                                        header = header ? header OFS $i : $i
                                                      }
                               }
             print header
           }
       NR>1{
             for(i=1;i<=NF;i++){
                                             tmp += $i
                                             if(B[i+1]){
                                                              printf tmp OFS;tmp=""
                                                       }
                                }
              printf tmp RS
              tmp = 0
          }
        ' OFS=\\t file

A    B    C
2    12    18
4    178    190
26    8    16