Shell Programming and Scripting

Ind1 0 1 2
Ind1 0 2 1
Ind2 1 1 0 
Ind2 2 2 0

Ind1 00 12 21
Ind2 12 12 00

{
    col2[$1] = col2[$1] $2
    col3[$1] = col3[$1] $3
    col4[$1] = col4[$1] $4
}

END {

    for ( i in col2 )
    {
        print i " " col2[i] " " col3[i] " " col4[i]
    }
}

i in i<=NF

awk '
{       if(NF > m) m = NF
        if(!((1,$1) in o)) {
                o[1,$1] = $1
                oo[++oc] = $1
        }
        for(i = 2; i <= NF; i++) o[i,$1] = o[i,$1] $i
}
END {   for(i = 1; i <= oc; i++) {
                for(j = 1; j <= m; j++)
                        printf("%s%s", o[j, oo[i]], j == m ? "\n" : " ")
        }
}' input

awk '
function pl() {
    printf "%s",a;
    for(i=2;i in V;i++) printf " %s",V[i]
    printf "\n"
}
a!=$1 {
    if(a)pl()
    a=$1
    split("",V,",")
}
{
   for(i=2;i<=NF;i++) V[i]=V[i]$i
   next
}
END {pl()}' infile

awk -f '{
  a[$1]=$1; for (i=2; i<=NF; i++) {ar[$1,i]=ar[$1,i] $i; if (NF>mx) mx=NF}
}
END {
  for (b in a) {
    printf b " ";
    for (c=2; c<=mx; c++) printf ar[b,c] " ";
    print "";
  }
}' infile

$ awk '{getline nx; j=split (nx, Ax); for (i=2;i<=j;i++) $i=$i Ax[i]}1' file

$ awk '{getline nx; for (i=2;i<=split(nx,Ax);i++) $i=$i Ax[i]}1' file
Ind1 00 12 21
Ind2 12 12 00