相关行的数据处理

gooderpan

有一个文件file：（tab分隔）
CASP8        ID:841  Predicted
BIOSYSTEM:169493  377873  1269170  213780
BIOSYSTEM:1270288  1270261  1270287

PIK3CD        ID:5293  Predicted
BIOSYSTEM:1269171  169493  373889

FCAR        ID:2204  Predicted
BIOSYSTEM:153910  153859  With_TAP2
BIOSYSTEM:171867  153910
BIOSYSTEM:153910  153859  With_HLA-B
--------------------------------------------------------------------------------------------------------------------------------------------------------
以每个基因为每行的开头，将后续每行接入其后面，想要得到的结果如下：
CASP8        ID:841  Predicted  BIOSYSTEM:169493  377873  1269170  213780  BIOSYSTEM:1270288  1270261  1270287
PIK3CD        ID:5293  Predicted  BIOSYSTEM:1269171  169493  373889
FCAR        ID:2204  Predicted    BIOSYSTEM:153910  153859  With_TAP2    BIOSYSTEM:171867  153910  BIOSYSTEM:153910  153859   With_HLA-B
请问大神们，该怎么处理呢？？？谢谢啦！！

moperyblue

1. awk NF=NF RS= file

复制代码

?

sunzhiguolu

1. perl -00ne '@F=split(/\n/);print @F,"\n"' f

复制代码

moperyblue

1. sed '/ID:/{:a;N;/\n\s*$/!{s/\n/ /;ta};P};D' file

复制代码

sunzhiguolu

1. perl -00pe 's/\n(?!\z)/\t/g' f

复制代码

moperyblue

1. sed '/ID:/{h;d};H;$ba;/^\s*$/{:a;g;s/\n/ /gp};d' file

复制代码

gooderpan

回复 5# sunzhiguolu
请问大神，这个perl命令的含义是什么呀？？

sunzhiguolu

回复 7# gooderpan

perl -00pe 's/\n(?!\z)/\t/g' f

sunzhiguolu

回复 7# gooderpan

perl -00pe 's/\n(?!\z)/\t/g' f

jcdiy0601

1. awk 'BEGIN{RS=""}{$1=$1;print}' file
   
2. 
   
3. sed '/ID/{:a;N;/\nBIOSYSTEM/s/\n/ /;ta;P;D}' file

复制代码