tukubai 1行にまとめる (yarr map keta )

hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ cat  shell05-1 
#!/bin/bash

awk '{printf("%03d %s\n",((NR-1)/3+1),$0)}' data05-1

echo ------
awk '{printf("%03d %s\n",((NR-1)/3+1),$0)}' data05-1 | 
yarr num=1


echo ------
awk '{printf("%03d %s\n",((NR-1)/3+1),$0)}' data05-1 |
sed 's/:/ /g'                                    |
map num=1                                        |
keta
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ ./shell05-1
001 場所:新宿区
001 日付:10/01
001 人数:1000
002 場所:豊島区
002 日付:10/03
002 人数:1500
------
001 場所:新宿区 日付:10/01 人数:1000
002 場所:豊島区 日付:10/03 人数:1500
------
  * 人数   場所  日付
001 1000 新宿区 10/01
002 1500 豊島区 10/03
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ 
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ cat data05-2
場所:軽井沢
08/01
08/02
08/03
場所:那須高原
09/05
09/06
場所:美ヶ原 
10/01
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ cat shell05-2
#!/bin/bash

awk '/場所/{n++}{print n,$0}' data05-2

awk '/場所/{n++}{print n,$0}' data05-2 | 
yarr num=1                             | 
delf 1
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ 
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ 
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ ./shell05-2
1 場所:軽井沢
1 08/01
1 08/02
1 08/03
2 場所:那須高原
2 09/05
2 09/06
3 場所:美ヶ原 
3 10/01
場所:軽井沢 08/01 08/02 08/03
場所:那須高原 09/05 09/06
場所:美ヶ原 10/01
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$