论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2016-03-14 10:40 |只看该作者 |倒序浏览

有一个文件file：（tab分隔）
1 278 C C/C C/C C/G C/C N/N
1 771 T T/T T/T T/T A/A N/N
19 364 C C/T C/C C/C C/C N/N

每一行根据第三列信息判断，如果后列有第三列字符则替换成“0”，其他非N字符则替换成“1”，对所有N替换成"."
1 278 C 0/0 0/0 0/1 0/0 ./.
1 771 T 0/0 0/0 0/0 1/1 ./.
19 364 C 0/1 0/0 0/0 0/0 ./.

请问大神们该怎么办？？谢谢啦

文库|博客

jason680

富可敌国

论坛徽章:: 145

2楼 [报告]

发表于 2016-03-14 10:54 |只看该作者

回复 1# gooderpan

>> ...每一行根据第三列信息判断，如果后列有第三列字符则替换成“0”，其他非N字符则替换成“1”，对所有N替换成"."

$ awk 'BEGIN{FS=OFS="\t"}{for(n=4;n<=NF;++n){gsub("N",".",$n);gsub($3,0,$n);gsub(/[A-Z]/,1,$n)}print}' FILE
1       278       C       0/0       0/0       0/1       0/0       ./.
1       771       T       0/0       0/0       0/0       1/1       ./.
19       364       C       0/1       0/0       0/0       0/0       ./.

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

elu_ligao

腰缠万贯

论坛徽章:: 29

3楼 [报告]

发表于 2016-03-14 10:56 |只看该作者

awk '{for(i=4;i<=NF;++i){gsub($3,"0",$i);gsub("N",".",$i);gsub(/[^\.\/0]/,"1",$i)}}1'

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

hz_oracle

家境小康

论坛徽章:: 2

4楼 [报告]

发表于 2016-03-14 11:16 |只看该作者

awk 这个工具真是太强大了

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

moperyblue

大富大贵

论坛徽章:: 28

5楼 [报告]

发表于 2016-03-14 14:25 |只看该作者

sed -r ':a;s/([0-9]\s+([A-Z]).*(\s|\/)[^N]+)\2/\10/;ta
y/N/./
:b;s/(([0-9]+\s+){2}([A-Z]).*)[A-Z]/\11/;tb'

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

yjh777

大富大贵

论坛徽章:: 84

6楼 [报告]

发表于 2016-03-23 09:26 |只看该作者

本帖最后由 yjh777 于 2016-03-23 09:28 编辑

二楼好犀利啊 :)

把tab分隔也加上:

>> 有一个文件file：（tab分隔）
>> ...每一行根据第三列信息判断，如果后列有第三列字符则替换成“0”，其他非N字符则替换成“1”，对所有N替换成"."

$ awk 'BEGIN{FS=OFS="\t"}{for(n=4;n<=NF;++n){gsub("N",".",$n);gsub($3,0,$n);gsub(/[A-Z]/,1,$n)}print}' FILE
1       278       C       0/0       0/0       0/1       0/0       ./.
1       771       T       0/0       0/0       0/0       1/1       ./.
19       364       C       0/1       0/0       0/0       0/0       ./.

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Shell › 每一行特定字符的替换

[文本处理] 每一行特定字符的替换 [复制链接]

浏览过的版块