Shell Programming and Scripting

  a b c d e f g
  2 3 5 6 6 6 7
  3 4 5 6 7 9 0
  4 5 7 8 9 9 0
  1 2 4 5 6 7 8
  3 5 6 7 2 3 4
  5 6 7 4 3 2 4
  5 4 5 6 3 5 5 
  r h i j k l m 
  2 3 4 5 6 7 8
  4 5 7 8 9 9 0
  3 5 6 7 2 3 4
  2 3 5 6 6 6 7
  5 5 7 8 9 2 3
  1 2 4 5 6 7 8
  3 5 6 7 2 3 4

a 2 3 4 1 3 5 5
b 3 4 5 2 5 6 4
c 5 5 7 4 6 7 5
d 6 6 8 5 7 4 6
e 6 7 9 6 2 3 3
f 6 9 9 7 3 2 5
g 7 0 0 8 4 4 5
r 2 4 3 2 5 1 3
h 3 5 5 3 5 2 5
i 4 7 6 5 7 4 6
j 5 8 7 6 8 5 7
k 6 9 2 6 9 6 2
l 7 9 3 6 2 7 3
m 8 0 4 7 3 8 4

 
 awk '
{if(/[a-z]/){x++}
{for(i=1;i<=NF;i++) a[x,NR,i]=$i;t=NR;s=NF
}}
END {for(l=1;l<=x;l++)
{for(m=1;m<=s;m++)
{for(n=1;n<=t;n++) {printf (length(a[l,n,m])>0?a[l,n,m]" ":"")}
{print ""}}}
}' urfile

awk 'function pm(){
       for(j=1;j<=NF;j++)
         for(i=1;i<=m;i++)
           printf "%s"(i<m?OFS:RS),M[j,i]
     }
     /[[:alpha:]]/{
       if(m)pm()
       m=0
     }
     {
       ++m
       for(i=1;i<=NF;i++)
         M[i,m]=$i
     }
     END{
       pm()
     }' infile