论坛徽章:: 28

电梯直达

1楼 [收藏(0)] [报告]

发表于 2015-01-25 15:00 |只看该作者 |倒序浏览

本帖最后由 moperyblue 于 2016-07-19 13:12 编辑

修改原始文件，在第4列数据前加上数字零(0),如何实现呢?

原始文件内容：
A1|120516005958|901|813|4080|81171
A1|120516005959|8D0|813|1941|32964
A1|120516005959|8D1|813|1C60|75008

结果:
A1|120516005958|901|0813|4080|81171
A1|120516005959|8D0|0813|1941|32964
A1|120516005959|8D1|0813|1C60|75008

用sed：sed -r -i 's/(.*)\|(.*)\|(.*)\|(.*)\|(.*)\|(.*)/\1|\2|\3|0\4|\5|\6/g' a

如果每行数据的列数有几十列用上面的这种方法比较麻烦，有其它简单的方法吗？

参考方法:

sed 's/[^|]*/0&/4'
sed 's/|/&0/3'

复制代码

文库|博客

huang6894

大富大贵

论坛徽章:: 8

2楼 [报告]

发表于 2015-01-25 20:08 |只看该作者

awk -F'|' -vOFS='|' '{$4="0"$4;print}' urfile;

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

inchonline

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2015-01-29 22:03 |只看该作者

回复 1# moperyblue

echo "A1|120516005958|901|813|4080|81171
A1|120516005959|8D0|813|1941|32964
A1|120516005959|8D1|813|1C60|75008"|perl -F'\|' -lane '$F[3]="0$F[3]";$,="|";print @F'
A1|120516005958|901|0813|4080|81171
A1|120516005959|8D0|0813|1941|32964
A1|120516005959|8D1|0813|1C60|75008

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › 修改文件某列内容

修改文件某列内容 [复制链接]