Shell Programming and Scripting

A "1"
B "2"
C "3"
D "4"
E "5"
F "6"
A "11"
B "21"
C "31"
D "41"
E "51"
F "61"

A B C D E F
1 2 3 4 5 6
11 21 31 41 51

echo "A B C D E F"

cat abc124.txt | while read letter number
do
        eval let \${letter}=${number}
        counter=$(($counter + 1))
        if [ ${counter} -ge 6 ]
        then
                echo "$A $B $C $D $E $F"
                counter=0
        fi
done


./scriptname
A B C D E F
1 2 3 4 5 6
11 21 31 41 51 61

awk -F\" '{a[$1]=a[$1]" "$2} END{for(i in a) print i,a[i]}' filename|sort|awk '{for(i=1;i<=NF;i++) t[i]=t[i]"\t"$i;if(NF>max)max=NF} END{for(i=1;i<=max;i++)print t[i]}'

A "99"
F "101"

[mute@geek ~]$ ./pivot input
A       B       C       D       E       F
1       2       3       4       5       6
11      21      31      41      51      61
99                                      101

#!/usr/bin/awk -f
!($1 in a){a[$1]=c;b[c++]=$1}
{gsub(/(^"|"$)/,"",$2);matrix[$1,d[$1]++]=$2}
END {
  for (i = 0; i < c; i++) {
    printf("%s\t", b[i]);
    if (d[b[i]] > max) max=d[b[i]]
  }
  printf("\n")
  for (i = 0; i < max; i++) {
    for (j = 0; j < c; j++)
      printf("%s\t", matrix[b[j],i])
    printf("\n")
  }
}

awk -F\" '$1==b{if(h){print h; f=1} print s; s=x} !f{h=h $1} NR==1{b=$1} {s=s $2 OFS} END{print s}' infile

     Name     Prompt     Default     ParamType     ParamLength
     "AAAAAAAAA"     "BBBBBBBB"     "CCCCCCCCCCC"     "0"     "0"

awk '$1==b{if(h){print h; f=1} print s; s=x} !f{h=h $1 OFS} NR==1{b=$1} {s=s $2 OFS} END{print s}' OFS='\t' infile