免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Shell › perl取一行两个值
最近访问板块 发新帖
查看: 1587 | 回复: 5
打印 上一主题 下一主题

[文本处理] perl取一行两个值 [复制链接]

xylonxiang

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2015-01-20 13:20 |只看该作者 |倒序浏览
01-06 00:00:00,793 INFO - MsgId:[OPTSURM1WEB201000000182851];接收:[172.16.6.2][/P/UNCHECKED/OPTSURM1/PTS0011109.dow];数据:[150][<ROOT><GWA><VIEWCODE>json</VIEWCODE></GWA><REG_USR_OPR_LOG_ID>likun0105</REG_USR_OPR_LOG_ID><VIEWCODE>json</VIEWCODE><R>0.49628793665114473</R></ROOT>]

上面为一行记录，我想取OPTSURM1WEB201000000182851和likun0105 两个值出来，并打印在一行，请问perl怎么处理？
记录
dn833

论坛徽章:
5
未羊 日期:2014-08-04 16:15:21天秤座 日期:2014-08-13 13:52:372015年辞旧岁徽章 日期:2015-03-03 16:54:152015年迎新春徽章 日期:2015-03-04 09:56:112015亚冠之浦和红钻 日期:2015-06-29 15:30:48
2楼 [报告]
发表于 2015-01-20 13:44 |只看该作者
  1. sed -r 's/.*MsgId:\[([^]]+).*REG_USR_OPR_LOG_ID>([^<]+).*/\1 \2/'
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
liion631818

论坛徽章:
10
天蝎座 日期:2013-09-22 22:32:23程序设计版块每日发帖之星 日期:2016-08-07 06:20:00lufei 日期:2016-06-17 17:38:40程序设计版块每日发帖之星 日期:2016-06-12 06:20:002016科比退役纪念章 日期:2016-05-31 15:47:20CU十四周年纪念徽章 日期:2016-05-27 12:24:562015年亚洲杯之阿曼 日期:2015-05-03 21:01:352015年辞旧岁徽章 日期:2015-03-03 16:54:15天蝎座 日期:2013-10-20 21:05:24程序设计版块每日发帖之星 日期:2016-08-11 06:20:00
3楼 [报告]
发表于 2015-01-20 13:51 |只看该作者
  1. sed -r 's/[^[]*\[([^][]*)\].*<REG_USR_OPR_LOG_ID>([^<]*).*/\1 \2/'
  2. OPTSURM1WEB201000000182851 likun0105
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
xylonxiang

论坛徽章:
0
4楼 [报告]
发表于 2015-01-20 14:40 |只看该作者
谢谢两位朋友，Linux测试通过，可是在AIX系统上sed没有-r选项
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
ly5066113

论坛徽章:
23
15-16赛季CBA联赛之吉林 日期:2017-12-21 16:39:27白羊座 日期:2014-10-27 11:14:37申猴 日期:2014-10-23 08:36:23金牛座 日期:2014-09-30 08:26:49午马 日期:2014-09-29 09:40:16射手座 日期:2014-11-25 08:56:112015年辞旧岁徽章 日期:2015-03-03 16:54:152015年迎新春徽章 日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东 日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东 日期:2016-01-19 13:33:372015亚冠之山东鲁能 日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者 日期:2015-09-21 08:27:57
5楼 [报告]
发表于 2015-01-20 15:26 |只看该作者
回复 4# xylonxiang


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

论坛徽章:
0
6楼 [报告]
发表于 2015-01-20 16:06 |只看该作者
可以了，谢谢各位！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP