修改固定列的数据

flw

11^# flw 发表于 2008-11-07 22:48

QUOTE:

原帖由 odacharlee 于 2008-11-7 21:41 发表
perl -i.bak -F'/\|/' -lane '$,="|";print @F[0..1],"030100048",@F[3..$#F]' urfile

其实跟楼主的原理一样

这样会丢掉最后一个 |
还是应该用 s///

odacharlee

12^# odacharlee 发表于 2008-11-07 23:23

一直想着来着，最后写代码时忘记了
在print里面加上就好了
s///也不错

flw

13^# flw 发表于 2008-11-07 23:31

QUOTE:

原帖由 odacharlee 于 2008-11-7 23:23 发表
一直想着来着，最后写代码时忘记了
在print里面加上就好了
s///也不错

print 里没法加。如果末尾是连续两个 ||（就是说有一个空字段），还是会有问题。
split 就存在这个问题。
必须得知道项数才行。