Shell Programming and Scripting

0.9120 0.7782 0.6959 0.6904 0.6322 0.8068 0.9082 
0.9290 0.7272 0.9870 0.7648 0.8053 0.8300 0.9520 
0.8614 0.6734 0.7910 0.6413 0.7126 0.7364 0.8491 
0.8868 0.7586 0.8949 0.6883 0.6798 0.6966 0.9124 

outfile1: outfile2:  outfile3: outfile4:
0.9120   0.9290    0.8614    0.8868
0.7782   0.7272    0.6734    0.7586
0.6959   0.9870    0.7910    0.8949
0.6904   0.7648    0.6413    0.6883
0.6322   0.8053    0.7126    0.6798
0.8068   0.8300    0.7364    0.6966
0.9082   0.9520    0.8491    0.9124

perl -lane 'BEGIN{$i=1}open O,">> output_$i";for(@F){print O}close O;$i++' inputfile

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

[root@node2 ~]# cat data 
0.9120 0.7782 0.6959 0.6904 0.6322 0.8068 0.9082 
0.9290 0.7272 0.9870 0.7648 0.8053 0.8300 0.9520 
0.8614 0.6734 0.7910 0.6413 0.7126 0.7364 0.8491 
0.8868 0.7586 0.8949 0.6883 0.6798 0.6966 0.9124 
[root@node2 ~]# bash transpose data 
0.9120 0.9290 0.8614 0.8868 
0.7782 0.7272 0.6734 0.7586 
0.6959 0.9870 0.7910 0.8949 
0.6904 0.7648 0.6413 0.6883 
0.6322 0.8053 0.7126 0.6798 
0.8068 0.8300 0.7364 0.6966 
0.9082 0.9520 0.8491 0.9124

for i in {1..4}; do 
    bash transpose data | awk -v row=$i '{print $row > "outfile"row}'
done

[root@node2 ~]# cat run 
#!/bin/bash

Transpose_matrix()
{
nr=$(wc -l < ${1})
nf=$(head -n 1 ${1} | xargs -n 1 | wc -l)
for((NF=1; NF<=${nf}; ++NF))
do
    cut -d ' ' -f ${NF} ${1}
done | xargs -n ${nr}
}

Transpose_matrix ${1}
[root@node2 ~]# bash run data 
0.9120 0.9290 0.8614 0.8868
0.7782 0.7272 0.6734 0.7586
0.6959 0.9870 0.7910 0.8949
0.6904 0.7648 0.6413 0.6883
0.6322 0.8053 0.7126 0.6798
0.8068 0.8300 0.7364 0.6966
0.9082 0.9520 0.8491 0.9124

for i in {1..4}; do 
    bash run data | awk -v row=$i '{print $row > "outfile"row}'
done

[root@node2 ~]# awk '{print $0 | "xargs -n 1 > outfile"NR }' data

awk '{f="outfile"NR;$1=$1;print>f;close(f)}' OFS="\n" infile