忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT 视频 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 397 | 回复: 5

Perl新手求助:按条件多行合并一行 [复制链接]

论坛徽章:
0
发表于 2017-04-30 14:41 |显示全部楼层
需要处理的文本格式如下:
Sun Apr 30 13:05:43 2017
a
abc
dddddd
Sun Apr 30 13:05:46 2017
b
Sun Apr 30 13:06:46 2017
Error
Sun Apr 30 13:11:09 2017
ggg
ccdge
Sun Apr 30 13:11:09 2017
aa
Sun Apr 30 13:11:10 2017
a

变化的是红色标记的日期。
我期望的结果如下:
Sun Apr 30 13:05:43 2017,a,abc,dddddd
Sun Apr 30 13:05:46 2017,b
Sun Apr 30 13:06:46 2017,Error
Sun Apr 30 13:11:09 2017,ggg,ccdge
Sun Apr 30 13:11:09 2017,aa
Sun Apr 30 13:11:10 2017,a

日期后面如果是Array也可以。

2017-04-30 13:05:43,a,abc,dddddd
2017-04-30 13:05:46,b
2017-04-30 13:06:46,Error
2017-04-30 13:11:09,ggg,ccdge
2017-04-30 13:11:09,aa
2017-04-30 13:11:10,a

这种格式也可以。

请各位多多指教啊。

论坛徽章:
108
技术图书徽章
日期: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
发表于 2017-04-30 16:10 |显示全部楼层
回复 1# sykace

$ perl -pe '{s/\n//;if(m/\d\d:\d\d:\d\d \d{4}\s*$/){printf $n,$_;$n="\n"}else{printf ",$_"}}END{print"\n"}' FILE
Sun Apr 30 13:05:43 2017,aa,abcabc,dddddddddddd
Sun Apr 30 13:05:46 2017,bb
Sun Apr 30 13:06:46 2017,ErrorError
Sun Apr 30 13:11:09 2017,gggggg,ccdgeccdge
Sun Apr 30 13:11:09 2017,aaaa
Sun Apr 30 13:11:10 2017,aa

论坛徽章:
0
发表于 2017-04-30 16:15 |显示全部楼层
厉害!
多谢。

论坛徽章:
0
发表于 2017-04-30 16:18 |显示全部楼层
回复 2# jason680

多谢您的回复和工作。
但是我在执行的过程中发现结果,与期望基本上都一致了。
但是细节上有一个小疑问,还望你可以看看。

# perl -pe '{s/\n//;if(m/\d\d:\d\d:\d\d \d{4}\s*$/){printf $n,$_;$n="\n"}else{printf ",$_"}}END{print"\n"}'  ex.txt
Sun Apr 30 13:05:43 2017,aa,abcabc,dddddddddddd
Sun Apr 30 13:05:46 2017,bb
Sun Apr 30 13:06:46 2017,ErrorError
Sun Apr 30 13:11:09 2017,gggggg,ccdgeccdge
Sun Apr 30 13:11:09 2017,aaaa
Sun Apr 30 13:11:10 2017,aa



后面的结果出现了重复?
是我哪里的环境不一致嚒?

论坛徽章:
108
技术图书徽章
日期: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
发表于 2017-04-30 16:30 |显示全部楼层
回复 4# sykace

$ perl -ne '{s/\n//;if(m/\d\d:\d\d:\d\d \d{4}\s*$/){printf"$n$_";$n="\n"}else{printf ",$_"}}END{print"\n"}' FILE
Sun Apr 30 13:05:43 2017,a,abc,dddddd
Sun Apr 30 13:05:46 2017,b
Sun Apr 30 13:06:46 2017,Error
Sun Apr 30 13:11:09 2017,ggg,ccdge
Sun Apr 30 13:11:09 2017,aa
Sun Apr 30 13:11:10 2017,a

论坛徽章:
0
发表于 2017-04-30 16:31 |显示全部楼层
回复 4# sykace

嗯。多谢。我自己也琢磨出来了。
还是谢谢您。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

【有奖调查】AI时代如何迎接未知挑战?

人工智能一直在医疗行业扮演着重要角色,最早的专家系统和后来的基因诊断都是人工智能技术在医疗的行业探索。近年来,随着深度学习等技术的进步,人工智能在医疗行业的应用领域不断扩展,医学影像智能诊断、语音电子病历、癌症智能诊断等均已逐渐成为热门发展方向。
而作为人工智能重要推动力的深度学习技术的快速发展却亟需认知系统的强力支撑。
----------------------------------------
活动时间:2017年5月15日-6月5日

调查入口>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP