免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2265 | 回复: 3
打印 上一主题 下一主题

[文本处理] 如何将两两序列比对分值最高的提取出来 [复制链接]

论坛徽章:
25
程序设计版块每日发帖之星
日期:2016-05-03 06:20:0015-16赛季CBA联赛之八一
日期:2018-07-05 10:34:09黑曼巴
日期:2018-07-06 15:19:5015-16赛季CBA联赛之佛山
日期:2018-08-03 13:19:3315-16赛季CBA联赛之山西
日期:2018-08-07 19:46:2315-16赛季CBA联赛之广夏
日期:2018-08-08 19:31:5015-16赛季CBA联赛之青岛
日期:2018-11-26 15:21:5015-16赛季CBA联赛之上海
日期:2018-12-11 09:45:3219周年集字徽章-年
日期:2020-04-18 23:54:5215-16赛季CBA联赛之深圳
日期:2020-04-19 21:40:19黑曼巴
日期:2022-04-03 17:55:1315-16赛季CBA联赛之八一
日期:2018-07-03 16:56:46
1 [报告]
发表于 2018-02-27 18:32 |显示全部楼层
  1. awk '$1!=$2&&!b[$2$1]{a[$1]=a[$1]>$3?a[$1]:$2" "$3;b[$1$2]=$3}END{for(i in a){print i,a[i]}}' 1
复制代码

论坛徽章:
25
程序设计版块每日发帖之星
日期:2016-05-03 06:20:0015-16赛季CBA联赛之八一
日期:2018-07-05 10:34:09黑曼巴
日期:2018-07-06 15:19:5015-16赛季CBA联赛之佛山
日期:2018-08-03 13:19:3315-16赛季CBA联赛之山西
日期:2018-08-07 19:46:2315-16赛季CBA联赛之广夏
日期:2018-08-08 19:31:5015-16赛季CBA联赛之青岛
日期:2018-11-26 15:21:5015-16赛季CBA联赛之上海
日期:2018-12-11 09:45:3219周年集字徽章-年
日期:2020-04-18 23:54:5215-16赛季CBA联赛之深圳
日期:2020-04-19 21:40:19黑曼巴
日期:2022-04-03 17:55:1315-16赛季CBA联赛之八一
日期:2018-07-03 16:56:46
2 [报告]
发表于 2018-02-28 11:48 |显示全部楼层
本帖最后由 wh7211 于 2018-02-28 18:28 编辑
接着取跟同一序列比对上的所有序列的前25%行(四舍五入)
  1. awk '$1!=$2&&!b[$2$1]{a[$1]=a[$1]>$3?a[$1]:$2" "$3;b[$1$2]=$3;c[$1]=c[$1]?c[$1]"|"$0:$0}END{for(i in a){print i,a[i]};for(j in c){d=int(split(c[j],t,"|")*0.25+0.5);for(x=1;x<=d;x++){printf "25% >>> "t[x]"\n"}}}' 1
复制代码

论坛徽章:
25
程序设计版块每日发帖之星
日期:2016-05-03 06:20:0015-16赛季CBA联赛之八一
日期:2018-07-05 10:34:09黑曼巴
日期:2018-07-06 15:19:5015-16赛季CBA联赛之佛山
日期:2018-08-03 13:19:3315-16赛季CBA联赛之山西
日期:2018-08-07 19:46:2315-16赛季CBA联赛之广夏
日期:2018-08-08 19:31:5015-16赛季CBA联赛之青岛
日期:2018-11-26 15:21:5015-16赛季CBA联赛之上海
日期:2018-12-11 09:45:3219周年集字徽章-年
日期:2020-04-18 23:54:5215-16赛季CBA联赛之深圳
日期:2020-04-19 21:40:19黑曼巴
日期:2022-04-03 17:55:1315-16赛季CBA联赛之八一
日期:2018-07-03 16:56:46
3 [报告]
发表于 2018-03-07 10:25 |显示全部楼层
本帖最后由 wh7211 于 2018-03-07 14:11 编辑

回复 5# 小小脑


优化了一下代码,用这个吧:
  1. awk '$1!=$2&&!c[$2$1]{if(a[$1]<$3){a[$1]=$3;b[$1]=$0};c[$1$2]=$3;d[$1]=d[$1]?d[$1]"|"$0:$0}END{for(i in b){print b[i]};for(j in d){e=int(split(d[j],t,"|")*0.25+0.5);for(x=1;x<=e;x++){printf("25% >>> %s\n",t[x])}}}' 1
复制代码
如果我是想得到序列是在第一列跟第二列相同的不要

$1!=$2 <--- $1和$2不相同时满足条件
且序列1序列2跟序列2跟序列1形式的只取以一行前提下

c[$1$2]=$3 <--- 对c[$1$2](序列1序列2形式)赋值后,c数组的值为真
!c[$2$1] <--- c[$2$1](序列2序列1形式)为假时满足条件,说明和序列1序列2形式不同

论坛徽章:
25
程序设计版块每日发帖之星
日期:2016-05-03 06:20:0015-16赛季CBA联赛之八一
日期:2018-07-05 10:34:09黑曼巴
日期:2018-07-06 15:19:5015-16赛季CBA联赛之佛山
日期:2018-08-03 13:19:3315-16赛季CBA联赛之山西
日期:2018-08-07 19:46:2315-16赛季CBA联赛之广夏
日期:2018-08-08 19:31:5015-16赛季CBA联赛之青岛
日期:2018-11-26 15:21:5015-16赛季CBA联赛之上海
日期:2018-12-11 09:45:3219周年集字徽章-年
日期:2020-04-18 23:54:5215-16赛季CBA联赛之深圳
日期:2020-04-19 21:40:19黑曼巴
日期:2022-04-03 17:55:1315-16赛季CBA联赛之八一
日期:2018-07-03 16:56:46
4 [报告]
发表于 2018-03-08 11:07 |显示全部楼层
资料很多,找一本书系统的看完,同时在群里多交流,CU上多看看帖子,多练习
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP