あるファイルの文字列を別のファイルの一致に置き換えるには?

あるファイルの文字列を別のファイルの一致に置き換えるには?

次のファイルがあります:(308545行)

head output11.bim
1   1:775852:T:C    0   775852  T   C
1   1:1120590:A:C   0   1120590 C   A
1   1:1145994:T:C   0   1145994 C   T
1   1:1148494:A:G   0   1148494 A   G
1   1:1201155:C:T   0   1201155 T   C
1   1:1468016:T:C   0   1468016 C   T
...

別のファイル(marker-info)には、カンマで区切られた最初の24行のコメントが含まれています(合計500593行)。

1,742429,SNP_A-1909444,ss66079302,rs3094315,36.2,G,A,C,T,A,GCACAGCAAGAGAAAC[A/G]TTTGACAGAGAATACA,Sty,+,-,y,,,127,phs000018
1,769185,SNP_A-4303947,ss66273559,rs4040617,36.2,A,G,A,G,A,GCTGTGAGAGAGAACA[A/G]TGTCCCAATTTTGCCC,Sty,+,+,n,,,127,phs000018
1,775852,SNP_A-1886933,ss66317030,rs2980300,36.2,T,C,A,G,A,GAATGACTGTGTCTCT[C/T]TGAGTTAGTGAAGTCA,Nsp,-,+,y,,,127,phs000018
1,782343,SNP_A-2236359,ss66185183,rs2905036,36.2,C,T,C,T,A,CTCGATTTGTGTTCAA[C/T]ATATTTCATTTGTACC,Sty,-,-,n,,,127,phs000018
1,1120590,SNP_A-2205441,ss66174584,rs4245756,36.2,C,T,C,T,A,CCAGTGCTTTCAACCA[C/T]ACTCACTTTTCACTGT,Sty,+,+,n,,,127,phs000018
...

output11.bimの2番目の列を1番目と2番目の列の値が一致するマーカー情報の5番目の列に置き換えようとしています。したがって、この例の場合、output11.bimの結果は次のようになります。

1   rs2980300   0   775852  T   C
1   rs4245756   0   1120590 C   A

ベストアンサー1

$ cat tst.awk
NR==FNR { map[$1,$2]=$5; next }
($1,$4) in map { $2=map[$1,$4]; print }

$ awk -f tst.awk FS=',' marker-info FS=' ' output11.bim
1 rs2980300 0 775852 T C
1 rs4245756 0 1120590 C A

または、スクリプトでFSを2つの別々の値に設定したい場合:

$ cat tst.awk
BEGIN { FS="," }
NR==FNR { map[$1,$2]=$5; next }
FNR==1 { FS=" "; $0=$0 }
($1,$4) in map { $2=map[$1,$4]; print }

$ awk -f tst.awk marker-info output11.bim
1 rs2980300 0 775852 T C
1 rs4245756 0 1120590 C A

おすすめ記事