忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 1320 | 回复: 4

[文本处理] 替换数字 [复制链接]

论坛徽章:
0
发表于 2018-04-13 16:04 |显示全部楼层
本帖最后由 liysky 于 2018-04-13 16:05 编辑

abc: (0|203|4)
aaabc: (-1|-1|-1)
fffc: (0|203|-33333)

用shell 将括号里的数字替换成问号,如果是负数,然后带负号 -, 如果是0或者1 不做替换

abc: (0|?|?)
aaabc: (-1|-1|-1)
fffc: (0|?|-?)


如何实现?

论坛徽章:
6
程序设计版块每日发帖之星
日期:2016-05-03 06:20:0015-16赛季CBA联赛之同曦
日期:2017-09-11 14:39:482016科比退役纪念章
日期:2018-01-19 12:45:59CU十四周年纪念徽章
日期:2018-03-16 13:09:5315-16赛季CBA联赛之北京
日期:2018-03-23 15:24:0715-16赛季CBA联赛之辽宁
日期:2018-04-02 14:03:39
发表于 2018-04-13 18:51 |显示全部楼层
本帖最后由 wh7211 于 2018-04-13 18:55 编辑

回复 1# liysky


  1. awk '{l=split($2,t,"[()|]");for(i=2;i<l;i++){if(t[i]!=0&&t[i]!=1&&t[i]!=-1){t[i]=t[i]<0?"-?":"?"};a=a?a"|"t[i]:"("t[i]};print $1,a")";a=""}' file
复制代码

论坛徽章:
130
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07巳蛇
日期:2014-05-09 16:43:18巨蟹座
日期:2014-10-23 17:48:38子鼠
日期: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
发表于 2018-04-14 12:57 |显示全部楼层
回复 1# liysky

$ awk 'func x(s){if(!(s==0||s==1||s==-1))sub("[0-9]+","?",s);return s}match($0,"[(]([^)]+)[)]",m){t=split(m[1],a,"|");s=x(a[1]);for(n=2;n<=t;n+=1)s=s"|"x(a[n]);gsub("[|]","\\|",m[1]);sub(m[1],s)}1' file
abc: (0|?|?)
aaabc: (-1|-1|-1)
fffc: (0|?|-?)

论坛徽章:
8
双子座
日期:2013-08-31 07:37:12金牛座
日期:2013-09-09 18:49:12处女座
日期:2013-09-23 11:43:14处女座
日期:2013-10-09 19:48:21狮子座
日期:2014-03-24 18:22:12丑牛
日期:2014-04-22 22:07:51申猴
日期:2014-06-12 21:54:13双鱼座
日期:2014-06-13 21:52:31
发表于 2018-04-20 13:44 |显示全部楼层
回复 1# ontherd
  1. perl -lanE  '@F[1]=~s/[2-9]/?/g;@F[1]=~s/\?[^\|)]//g;print @F' file
  2. abc:(0|?|?)
  3. aaabc:(-1|-1|-1)
  4. fffc:(0|?|-?)
复制代码




论坛徽章:
8
双子座
日期:2013-08-31 07:37:12金牛座
日期:2013-09-09 18:49:12处女座
日期:2013-09-23 11:43:14处女座
日期:2013-10-09 19:48:21狮子座
日期:2014-03-24 18:22:12丑牛
日期:2014-04-22 22:07:51申猴
日期:2014-06-12 21:54:13双鱼座
日期:2014-06-13 21:52:31
发表于 2018-04-20 13:46 |显示全部楼层
回复 1# ontherd
  1. perl -lanE  '@F[1]=~s/[2-9]/?/g;@F[1]=~s/\?[^\|)]//g;print @F' file
  2. abc:(0|?|?)
  3. aaabc:(-1|-1|-1)
  4. fffc:(0|?|-?)
复制代码




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

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:wangnan@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP