免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1385 | 回复: 9

[文本处理] 替换文本求助 [复制链接]

论坛徽章:
0
发表于 2016-11-17 10:36 |显示全部楼层
请教大大们替换文本,
文本1如下:
>AA0|99|PP
DDDDDDDDD
DDDD
>BB22|00|LL|UU
KKKKKKKKKKKKK
KKKKKKKKKKKKK
KK

文本2:
AA0 TT
BB22 PP


如果文本1红色部分与文本2第一列匹配,就用文本2整行来替换文本1,得到
>AA0 TT|99|PP
DDDDDDDDD
DDDD
>BB22 PP|00|LL|UU
KKKKKKKKKKKKK
KKKKKKKKKKKKK
KK

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2016-11-17 10:49 |显示全部楼层
本帖最后由 moperyblue 于 2016-11-17 10:53 编辑
  1. awk -F'[ |]' 'NR==FNR{a[">"$1]=">"$0;next}a[$1]{$1=a[$1]}1' OFS=\| 2 1
复制代码

论坛徽章:
0
发表于 2016-11-17 11:17 |显示全部楼层
貌似不对啊,结果是:
>AA0|99|PP
DDDDDDDDD
DDDD
>BB22|00|LL|UU
KKKKKKKKKKKKK
KKKKKKKKKKKKK
KK

论坛徽章:
54
2015亚冠之德黑兰石油
日期:2015-07-07 13:00:1615-16赛季CBA联赛之深圳
日期:2016-03-31 09:03:5415-16赛季CBA联赛之辽宁
日期:2016-05-09 20:38:15程序设计版块每日发帖之星
日期:2016-05-12 06:20:0015-16赛季CBA联赛之四川
日期:2016-05-13 15:19:4715-16赛季CBA联赛之福建
日期:2016-05-15 20:24:34每日论坛发贴之星
日期:2016-05-16 06:20:0015-16赛季CBA联赛之吉林
日期:2016-05-26 11:49:4715-16赛季CBA联赛之广东
日期:2016-05-26 13:49:18极客徽章
日期:2016-12-07 14:05:2315-16赛季CBA联赛之广夏
日期:2016-12-20 17:33:532017金鸡报晓
日期:2017-01-10 15:19:56
发表于 2016-11-17 11:25 |显示全部楼层
  1. awk -F'[ >|]' 'NR==FNR{a[$1]=$2;next}a[$2]{sub($2,"& "a[$2])}1' b a
复制代码

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2016-11-17 11:29 |显示全部楼层
  1. perl -nle 'if(@ARGV){($k)=split;$h{$k}=$_;next}if(/\A>(\w+)/ and exists($h{$1})){$k=$1;$_=s/$k/$h{$k}/r}print' b a
复制代码

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2016-11-17 11:35 |显示全部楼层
本帖最后由 moperyblue 于 2016-11-17 11:37 编辑

回复 3# Eva326

文本2是用空格还是tab分隔?

more 1 2
  1. ::::::::::::::
  2. 1
  3. ::::::::::::::
  4. >AA0|99|PP
  5. DDDDDDDDD
  6. DDDD
  7. >BB22|00|LL|UU
  8. KKKKKKKKKKKKK
  9. KKKKKKKKKKKKK
  10. KK
  11. ::::::::::::::
  12. 2
  13. ::::::::::::::
  14. AA0 TT
  15. BB22 PP
复制代码


awk -F'[ \t|]' 'NR==FNR{a[">"$1]=">"$0;next}a[$1]{$1=a[$1]}1' OFS=\| 2 1
  1. >AA0 TT|99|PP
  2. DDDDDDDDD
  3. DDDD
  4. >BB22 PP|00|LL|UU
  5. KKKKKKKKKKKKK
  6. KKKKKKKKKKKKK
  7. KK
复制代码

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2016-11-17 12:00 |显示全部楼层
回复 1# Eva326

$ awk 'FNR==NR{a[$1]=$0;next}match($0,"^>([^|]+)",m){k=m[1];if(a[k]){sub(k,a[k])}}1' f2 f1
>AA0 TT|99|PP
DDDDDDDDD
DDDD
>BB22 PP|00|LL|UU
KKKKKKKKKKKKK
KKKKKKKKKKKKK
KK

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2016-11-17 12:17 |显示全部楼层

  1. sed -r '1{x;s/.*/cat 2/e;x};/>/{G;s/>([^|]+)(.*)\n(\1[^\n]*)/>\3\2/;P;d}' 1
复制代码

?

论坛徽章:
1
15-16赛季CBA联赛之江苏
日期:2016-10-26 16:19:04
发表于 2016-11-17 13:59 |显示全部楼层
  1. awk -F'[ |>]+' 'NR==FNR{a[$1]=$0;next}{sub($2,a[$2]);print $0}' file2 file1
复制代码

论坛徽章:
6
羊年新春福章
日期:2015-03-03 17:16:28双子座
日期:2015-03-03 17:16:56巳蛇
日期:2015-03-03 17:17:2415-16赛季CBA联赛之福建
日期:2016-03-11 09:05:00黑曼巴
日期:2016-07-07 16:58:1215-16赛季CBA联赛之吉林
日期:2016-11-14 09:23:07
发表于 2016-11-21 10:24 |显示全部楼层
回复 1# Eva326

  1. awk 'BEGIN{FS="[ |]";OFS="|"}NR==FNR{a[">"$1]=">"$1" "$2;next}NR>FNR{for(i in a)if(i~$1){sub($1,a[i],$1)}print}' 2 1
复制代码

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP