Shell Programming and Scripting

I am stuck with by DNA clustering analysis. I thought this forum will be a great help with data manipulations. Please help me.

I have a table with 91 columns. First I want to trim the table to only having rows where the column values are single characters which are A,T,G,C or 0. So any row having column values such as AA,AAG, AATG , Y, K etc has to be filtered out.
I figured out the regular expression will be something like [0ATGC]

Next I want to compare all the columns pairwise and group the columns which have the exact same values.The intermediate table output is not required.

Example input for 6 columns

Code:

Col1 Col2 Col3 Col4 Col5 Col6
A G G G T A
A Y R R TT A
A G T T T A
A G G T 0 A
A 0 R T TT AGGGGTT

Trimmed table (no output reqd)

Code:

 Col1 Col2 Col3 Col4 Col5 Col6
A G G G T A
A G T T T A
A G G T 0 A

Clustering output (desired output)

Code:

Col1,Col6 
Col2
Col3
Col4
Col5

Try:

Code:

awk 'NR>1{for (i=1;i<=NF;i++) if (length($i)>1) next}1' file | awk 'NR==1{for (i=1;i<=NF;i++) n[i]=$i}
NR>1{for (i=1;i<=NF;i++) a[i]=a[i]""$i}
END{for (i=1;i<=NF;i++) b[a[i]]=b[a[i]]","n[i];
for (i in b) {sub("^,","",b[i]);print b[i]}}'

Hi Bartus11
Can you also help me filter the single character values other than A,T,G,C and 0? Single characters like Y, M , R etc are present in my input which are not allowed.
Many Thanks

Code:

awk 'NR>1{for (i=1;i<=NF;i++) if (length($i)>1||$i!~"A|G|T|C|0") next}1' file | awk 'NR==1{for (i=1;i<=NF;i++) n[i]=$i}
NR>1{for (i=1;i<=NF;i++) a[i]=a[i]""$i}
END{for (i=1;i<=NF;i++) b[a[i]]=b[a[i]]","n[i];
for (i in b) {sub("^,","",b[i]);print b[i]}}'

Works like a charm ! Thank you bartus11