Shell Programming and Scripting

A.1  Q.1
A.1  Q.2
A.1  Q.3
A.2  Q.4

A.1  Q.1  s1  t1
A.1  Q.2  s1  t2
A.1  Q.3  s1  t3
A.2  Q.4  s5  t5

tr ' ' '\n' <input |awk '/./'  |awk '!a[$1]++' | awk '{ print $0"\t""s"NR"\t""t"NR-1}'

A.1    s1    t0
Q.1    s2    t1
Q.2    s3    t2
Q.3    s4    t3
A.2    s5    t4
Q.4    s6    t5

$ awk '{a[$1]=a[$1] "\n" $2;next}END{for(i in a){print i, a[i];}}' file | awk '{print $0 "\t" "s"i++ "\t" "t"j++ }' i=1 j=0
A.1     s1      t0
Q.1     s2      t1
Q.2     s3      t2
Q.3     s4      t3
A.2     s5      t4
Q.4     s6      t5

$tr '  ' '\n' < file  | awk '/./ { if($0 ~ /^A/ ){if(!x[$0]++){a++;print $0,"s"a}else{print $0,"s"a}}else if($0 ~ /^Q/ ){if(!x[$0]++){b++;print $0,"t"(b)}else{print $0,"t"(b)}}}' | xargs -n 4 | awk '{ print $1,$3,$2,$4}'

A.1 Q.1 s1 t1
A.1 Q.2 s1 t2
A.1 Q.3 s1 t3
A.2 Q.4 s2 t4

awk '{ if(!x[$1]++){if(b){a+=b}{a++};p="s"a}else{p="s"a}; if(!x[$2]++){b++;q="t"b}else{q="t"b}}{print $0,p,q}' file

A.1  Q.1
A.1  Q.2
A.1  Q.3
A.2  Q.4

A.1    Q.1    s1    t1
A.1    Q.2    s1    t2
A.1    Q.3    s1    t3
A.2    Q.4    s5    t5

awk '{print $1"\t"$2}' $1 | sort >> filex;
awk '{print $2"\t"$1}' $1 | sort >> filey;
tr ' ' '\n' <filex |awk '/./'  |awk '!a[$1]++' | awk '{ print $0"\t""s"NR}' | sort  >> file1;
tr ' ' '\n' <filex |awk '/./'  |awk '!a[$1]++' | awk '{ print $0"\t""t"NR-1}' | sort  >> file2;
join file1 filex |awk '{print $1":"$3"\t"$2}' | sort >> file3 ;
join file2 filey |awk '{print $3":"$1"\t"$2}' | sort > file4  ; 
join file3 file4 | tr ':' '\t' |awk '{print $1"\t"$2"\t"$3"\t"$4}' >> final_output ;
rm file* ;

awk 'FNR==NR{for(i=1;i<=NF;i++) if(!($i in s)){s[$i]=++y;t[$i]=z++};next}
{print $1,$2,"s" s[$1],"t" t[$2]}' file file