UNIX for Beginners Questions & Answers

awk -F"\t" '{ if(NF>M) M=NF; for(N=1; N<=NF; N++) if($N) D[N,++C[N]]=$N } END { for(N=1; N<=M; N++) for(X=1; X<=C[N]; X++) print D[N,X] }' inputfile > outputfile

1 2 3 4 5
A B C E
X Y Q M

1
2
3
4
5
A
B
C
E
X
Y
Q
M

awk '{ for (i=1 ; i<NF; i++) 
            {
               printf("%s\n", $(i) );
            } 
          } ' inputfilename  > outputfilename

Owner@Owner-PC ~
$ mv infile inputfilename

Owner@Owner-PC ~
$ ./t.awk

Owner@Owner-PC ~
$ cat outputfilename
1
2
3
4
A
B
C
X
Y
Q

awk '{ for (i=1 ; i<NF; i++)
            {
               printf("%s\n", $(i) );
            }
          } ' inputfilename  > outputfilename

$ ls -l t.awk
$ ls -l t.awk
-rwxr-xr-x 1 Owner None 143 May  9 13:56 t.awk

1 2 3 4 5 

A B C E 

X Y Q M

1
A
X
2
B
Y
3
C
Q
4
E
M
5

$ awk ' { for(i=1;i<=NF;i++) print i, $i } ' file | sort | awk ' { print $2 } '
1
A
X
2
B
Y
3
C
Q
4
E
M
5

1       2       3       4       5
A       B       C       E
X       Y       Q       M

1^I2^I3^I4^I5$
A^IB^IC^IE$
X^IY^IQ^IM$

transpose.pl z3 | tr '\t' '\n'

1
A
X
2
B
Y
3
C
Q
4
E
M
5

OS, ker|rel, machine: Linux, 3.16.0-7-amd64, x86_64
Distribution        : Debian 8.11 (jessie) 
bash GNU bash 4.3.30

transpose.pl    Swap rows and columns in the given tab-delimited table (MR). (what)
Path    : ~/bin/transpose.pl
Version : - ( local: RepRev 1.1, ~/bin/transpose.pl, 2017-01-29 )
Length  : 28 lines
Type    : Perl script, ASCII text executable
Shebang : #!/usr/bin/perl
Home    : http://www1.cuni.cz/~obo/textutils/ (doc)