- 论坛徽章:
- 1
|
原帖由 choki 于 2007-3-21 13:38 发表
且这个实例如果用 Perl 的话,绝对不比 awk 简单。。。。。。。^_^
awk -F, '{printf("%12s%30s%1s%1s%1s%1s%4s",$1,$2,$3,$4,$5,$6,$7}' filename
是吗?
那只能说你对 Perl 不了解。
- flw@Sleeper:~$ cat foo
- Death'dre,Frostpike,2,2,9,10,352
- Y'ki,Silversong,1,2,7,43,32768
- Ra'las,Exomar,2,3,4,30,6656
- flw@Sleeper:~$ perl -F, -plane '$_=pack( "A13 A31 A2 A2 A2 A3 A5", @F )' foo
- Death'dre Frostpike 2 2 9 10 352
- Y'ki Silversong 1 2 7 43 32768
- Ra'las Exomar 2 3 4 30 6656
- flw@Sleeper:~$
复制代码
请比较一下:
- awk -F, '{printf("%12s%30s%1s%1s%1s%1s%4s",$1,$2,$3,$4,$5,$6,$7}'
- perl -F, -plane '$_=pack( "A13 A31 A2 A2 A2 A3 A5", @F )'
复制代码 |
|