Shell Programming and Scripting

USD
10
15
20
GBP
11
12
13
FRC
14
18
24

USD GBP FRC
10   11   14
15   12   18
20   13   24

$ cat file1
USD
10
15
20
GBP
11
12
13
FRC
14
18
24

$ awk '$1+0!=$1{x++;y=1}{a[x,y++]=$1}z<y{z=y}END{for(j=1;j<z;j++)for(i=1;i<=x;i++)printf a[i,j] (i<x?OFS:ORS)}' file1 > file2

$ cat file2
USD GBP FRC
10 11 14
15 12 18
20 13 24

$

[root@node3 ~]# cat transpose 
#!/bin/bash 
# 
# transpose 
 
transpose() 
{ 
  awk ' 
      { 
              if(max_nf<NF) 
                 max_nf=NF 
              max_nr=NR 
              for(x=1; x<=NF; ++x) 
                  matrix[x, NR]=$x 
      } 
 
  END { 
              for(x=1; x<=max_nf; ++x) { 
                  for (y=1; y<=max_nr; ++y) 
                       printf("%s ", matrix[x, y]) 
                  printf("\n") 
              } 
      }'  "${1--}"
} 
 
transpose "${1--}"

[root@node3 ~]# sed -n 'h;n;H;n;H;n;H;x;s:\n: :g;p' infile | bash transpose 
USD GBP FRC 
10 11 14 
15 12 18 
20 13 24

xargs -n 4 < infile |  bash transpose

[root@node3 ~]# cat /etc/redhat-release 
CentOS release 6.3 (Final)
[root@node3 ~]# bash --version | grep -release
GNU bash, version 4.1.2(1)-release (x86_64-redhat-linux-gnu)
[root@node3 ~]# for((i=0; i!=18001*85; ++i)); do echo 0 >> file; done &
[root@node3 ~]# wc -l file 
1530085 file
[root@node3 ~]# xargs -n 18001 < file | bash transpose > result
[root@node3 ~]# wc -l result 
18001 result
[root@node3 ~]# awk '{print NF;exit}' result 
85

awk '$1+0 != $1 {close(f); f=sprintf("%06d.dat",++n)} {print > f}' file
paste *.dat > output