Shell Programming and Scripting

#!/bin/ksh
delim=";"
rm -f *.key 2>/dev/null
cat file | while read key value xxx
do
        [ "$value" = "" ] && continue  # less than 2 value in line
        echo $value >> $key.key
done

maxsize=0   # how many lines we need = number of lines in file
for col in *.key
do
        size=$(cat $col | wc -l)
        ((size>maxsize)) && maxsize=$size
        colname=${col%%.*}  # remove last value after dot = name of col
        print -n "$colname$delim"
done
echo

line=1
while ((line<=maxsize))
do
        for col in *.key
        do
                value=$(sed -n "${line}p" $col 2>/dev/null )   # take Nth line from file
                print -n "$value$delim"
        done
        echo
        ((line+=1))
done

name a1  a2 .....a200
n1  0  2.4..........0.339
.
.
.
n200000  139.9  333339.9........0.989

awk 'NR==1{for(i=2;i<=NF;i++)ARGV[ARGC++]=ARGV[1]}
     FNR==1{print x;c++}{printf "%s"FS,$c}END{print x}' infile

cat <<EOF > $0.tmp
Start
A 1 K1 k1
B 2
C 3 T2 t4
D 4 C5 c4 cc6 hg55
E 5
End

Start
A 11
B 12
C 23 C5a c4a cc6a hg55a
D 25
E 21
End

Start
A 71
B 12
D 75
E 21
End
EOF

rm -f *.key 2>/dev/null
delim=";"
# 1st col values are now name of the files => name of the col and other values are lines in the file.
cat $0.tmp | while read key values
do
        [ "$values" = "" ] && continue
        for value in $values
        do
                echo $value >> $key.key
        done
done
# now data is in the files, printout

maxsize=0  # height of the output table = number of the lines in file
for col in *.key
do
        size=$(cat $col | wc -l)
        ((size>maxsize)) && maxsize=$size
        colname=${col%%.*}
        print -n "$colname$delim"
done
echo

# now we have height for the output table
line=1
while ((line<=maxsize))
do
        for col in *.key
        do
                value=$(sed -n "${line}p" $col)   # take Nth line from the file
                print -n "$value$delim"
        done
        echo
        ((line+=1))
done

$ <abc tr ' ' '\n' | pr -5 -s' ' -t

$ cat abc
A 1
B 2
C 3
D 4
E 5
$ <abc tr ' ' '\n' | pr -5 -s' ' -t
A B C D E
1 2 3 4 5
$