Perl新手求助：按条件多行合并一行

sykace

需要处理的文本格式如下：
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

这种格式也可以。

请各位多多指教啊。

jason680

回复 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

sykace

厉害！
多谢。

sykace

回复 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



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

jason680

回复 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

sykace

回复 4# sykace

嗯。多谢。我自己也琢磨出来了。
还是谢谢您。