このようなテキストファイルがあります。
2XKJ;2XKK; B0V9T6
2XKJ;2XKK; B0VP98
3TSG; D3X610
PDB IDを含む他のファイルがあります。
2XKJ
2XKJ
2XKJ
2XKK
私はこの出力が欲しい
2XKJ B0V9T6 B0VP98
2XKJ B0V9T6 B0VP98
2XKJ B0V9T6 B0VP98
2XKK B0V9T6 B0VP98
perl
またはLinuxを使用してawk
この出力を取得する方法
ベストアンサー1
そしてawk
:
awk -F ';[[:blank:]]*' '
!file1_done {for (i = 1; i < NF; i++) val[$i] = val[$i] " " $NF; next}
{print $1 val[$1]}' file1 file1_done=1 file2