无分隔符文本重新格式化问题

xxinganling

想请教一个文本重新格式化的问题

一文本文件每行有几百个字符（等长），没有分隔符，简化举例如下：
0001 张三   13366661234 01087700011
0002 李小四 13688884321041562240101
0003欧阳小强18058584567 02147668545
0004赵五    17001141212024937799888
0005    杨六17816668899 01637764669
合计：人数5人

要实现：
000001    01087700011|张三      13366661234
000002   041562240101|李小四    13688884321
000003    02147668545|欧阳小强  18058584567
000004   024937799888|赵五      17001141212
000005    01637764669|杨六      17816668899
合计：人数5人

即：
1、序号由四位变为六位（前补0）；
2、固定电话号码由第四部分改为第二部分，位数变为15位（右对齐，补空格）；
3、姓名变为10位（左对齐，补空格）；
4、固定电话号码和姓名之间插入管道线（|）；
5、最后一行合计不变。

情况比较复杂，能否用awk或sed实现？谢谢！

wh7211

回复 1# xxinganling

1. cat 1
   
2. 0001 张三   13366661234 01087700011
   
3. 0002 李小四 13688884321041562240101
   
4. 0003欧阳小强18058584567 02147668545
   
5. 0004赵五    17001141212024937799888
   
6. 0005    杨六17816668899 01637764669
   
7. 合计：人数5人
   
8. 
   
9. awk '{a=match($0,"^([0-9]+) *([^ 0-9]+) *([0-9]{11}) *([0-9]+)$",b);if(a){c=10-2*length(b[2]);for(d=1;d<=c;d++){e=e" "};printf("%06d%15s|%s%s%s\n",b[1],b[4],b[2],e,b[3]);e=""}else{print}}' 1
   
10. 000001    01087700011|张三      13366661234
    
11. 000002   041562240101|李小四    13688884321
    
12. 000003    02147668545|欧阳小强  18058584567
    
13. 000004   024937799888|赵五      17001141212
    
14. 000005    01637764669|杨六      17816668899
    
15. 合计：人数5人

复制代码

legs

1. perl -pe's#(\d+)\s*(\D+)\s*(\d{11})\s*(\N+)#sprintf"%06d%15s|%s\t%s",$1,$4,$2,$3#e'

复制代码