重组 - 01/2010

rdcwayx

源文件：

on Caturday 22 at 10:15, some event
on Caturday 22 at 10:15, some other event
on Caturday 22 at 21:30, even more events
on Funday 23 at 11:00, yet another event

希望的输出：

on Caturday 22 at 10:15, some event; some other event; at 21:30, even more events
on Funday 23 at 11:00, yet another event

sunbw001

awk '{t="";for(i=4;i<=NF;i++){t=t" "$i};y=$1" "$2" "$3;a[y]=a[y]?a[y]";"t:a[y]""t}END{for(v in a){print v,a[v]}}' data

nigelrax

1. awk -F, '{a[$1]=a[$1]+$2}END{for(i in a)print i", "a[i]}' urfile |sed 's/\([0-9][0-9]\) at/\1#at/'|awk -F# '{a[$1]=a[$1]+$2}END{for(i in a)print i,a[i]}'

复制代码

rdcwayx

原帖由 sunbw001 于 2010-1-20 20:05 发表
awk '{t="";for(i=4;i

有问题啊。

awk '{t="";for(i=4;i<=NF;i++){t=t" "$i};y=$1" "$2" "$3;a[y]=a[y]?a[y]";"t:a[y]""t}END{for(v in a){print v,a[v]}}'  urfile
aturday 22 at  10:15, some event
on Funday 23  at 11:00, yet another event
on Caturday 22  at 10:15, some other event; at 21:30, even more events

rdcwayx

原帖由 nigelrax 于 2010-1-20 20:06 发表
awk -F, '{a[$1]=a[$1]+$2}END{for(i in a)print i", "a}' urfile |sed 's/\([0-9][0-9]\) at/\1#at/'|awk -F# '{a[$1]=a[$1]+$2}END{for(i in a)print i,a}'

awk -F, '{a[$1]=a[$1]+$2}END{for(i in a)print i", "a}' urfile |sed 's/\([0-9][0-9]\) at/\1#at/'|awk -F# '{a[$1]=a[$1]+$2}END{for(i in a)print i,a}'
aturday 22 0
on Funday 23 0
on Caturday 22 0

也有问题。

是不是我的awk和你们的不兼容？

1. awk --version
   
2. GNU Awk 3.1.6

复制代码

ghp268

1. awk -F"[, ]+" '{if(!a[$3]++) printf "\n"$0 ;else{i=match($0,"at[ ]");printf ";"substr($0,i)}}END{printf "\n"}' tmp

复制代码

ghp268

2楼的在我这运行的很好呀
这个效率是最高的把

nigelrax

不太清楚
我的思路是先把日期和时间相同的放在一个数组里 后面的字符相加
得到
on Caturday 22 at 10:15, some event
on Caturday 22 at 10:15, some other event
on Caturday 22 at 21:30, even more events
on Funday 23 at 11:00, yet another even
得到
on Caturday 22 at 10:15, some event;some other event
on Caturday 22 at 21:30, even more events
on Funday 23 at 11:00, yet another event
再把日期相同的放在一个数组里 后面的字符相加
得到你要求的

sunbw001

Administrator@sunbw001 ~/pub
$ cat data2
on Caturday 22 at 10:15, some event
on Caturday 22 at 10:15, some other event
on Caturday 22 at 21:30, even more events
on Funday 23 at 11:00, yet another event

Administrator@sunbw001 ~/pub
$ awk '{t="";for(i=4;i<=NF;i++){t=t" "$i};y=$1" "$2" "$3;a[y]=a[y]?a[y]";"t:a[y]""t}END{for(v in a){print v,a[v]}}' data2
on Funday 23  at 11:00, yet another event
on Caturday 22  at 10:15, some event; at 10:15, some other event; at 21:30, even more events

Administrator@sunbw001 ~/pub

nigelrax

#cat >chongzu
on Caturday 22 at 10:15, some event
on Caturday 22 at 10:15, some other event
on Caturday 22 at 21:30, even more events
on Funday 23 at 11:00, yet another event

]#awk -F, '{a[$1]=a[$1]$2";"}END{for(i in a)print i", "a}' chongzu |sed 's/\([0-9][0-9]\) at/\1#at/'|awk -F# '{a[$1]=a[$1]$2}END{for(i in a)print i,a}'

on Funday 23 at 11:00,  yet another event;
on Caturday 22 at 21:30,  even more events;at 10:15,  some event; some other event;