Shell Programming and Scripting

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

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

awk '
        NR == 1 {
                for ( i = 1; i <= NF; i++ )
                {
                        A[i] = $i
                        H[$i]
                }
                for ( k in H )
                        printf "%s ", k
                printf "\n"
        }
        NR > 1 {
                for ( i = 1; i <= NF; i++ )
                        R[A[i]] += $i
                for ( k in R )
                {
                        printf "%s ", R[k]
                        R[k] = 0
                }
                printf "\n"
        }

' file

awk 'NR==1 {
   for(i=1;i<=NF;i++) C[$i]=C[$i]" "i
   for(col in C) printf col" "
   printf "\n"
   next
}
{for(col in C) {
   T=0
   for(i=split(C[col],v);i;i--) T+=$v[i]
   printf T" "
 }
 printf "\n"
} '

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
5 6 7 8

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"
} ' infile

perl -lane'
  $" = "\t";
  do {
    @f = @F;
    $t{$_}++ or push @o, $_ for @F;
    print "@o";
    next 
    } if $. == 1;
  $s{$f[$_]} += $F[$_] for 0..$#F;
  print "@{[map $s{$_}, @o]}"; 
  %s = ();
  ' infile