这个SHELL怎么写？

teatree

有一文本：
帐别：101
1110 100.22
2310 233.00
2320 210.00
......
帐别：101
2330 123.00
2331 111.11
.....
帐别：213
1110 100.00
1230 120.00
2310 233.00
2320 222.00
......
帐别：213
2330 700.00
2331 111.22
.....
帐别：214
1110 100.11
2310 233.02
2320 244.00
......
帐别：214
2330 564.00
2331 111.22
.....
我希望提取第一域为23开头的记录，转换为：
101|2310|233.00
101|2320|210.00
101|2330|123.00
101|2331|111.11
。。。。。。
213|2310|233.00
213|2320|222.00
213|2330|700.00
213|2331|111.22
。。。。。。
214|2310|233.02
214|2320|244.00
。。。。。。。。。。。

一梦如是

awk 'BEGIN{OFS="|"}{if($0~/帐别/){a=substr($0,7,length($0))}else{print a,$1,$2}}' file[/code]