免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1901 | 回复: 4

加一列空格 [复制链接]

论坛徽章:
0
发表于 2019-03-15 12:13 |显示全部楼层

菜鸟级Perl学习者,偶尔用perl处理文档。以下处理的基本差不多了,就差加一列空格。用文档编辑器很好加了。
用perl怎么最快的加呢。如下A到B。很菜鸟的问题,谢谢了。

A.txt:

WR_DRIVER_REG 5320
DELAY 1
WR_DRIVER_REG 51FF01
DELAY 1
WR_DRIVER_REG 8000F087
DELAY 1
WR_DRIVER_REG 8103280004000400
DELAY 1
WR_DRIVER_REG 3501
DELAY 1
WR_DRIVER_REG F0AA10
DELAY 1
WR_DRIVER_REG C4100909090B
DELAY 1
WR_DRIVER_REG B1205400


B.txt:

WR_DRIVER_REG 53 20
DELAY 1
WR_DRIVER_REG 51 FF01
DELAY 1
WR_DRIVER_REG 80 00F087
DELAY 1
WR_DRIVER_REG 81 03280004000400
DELAY 1
WR_DRIVER_REG 35 01
DELAY 1
WR_DRIVER_REG F0 AA10
DELAY 1
WR_DRIVER_REG C4 100909090B
DELAY 1
WR_DRIVER_REG B1 205400

论坛徽章:
0
发表于 2019-03-15 14:51 |显示全部楼层
perl -pe'$.%2&&s# ..\K# #' A.txt

论坛徽章:
0
发表于 2019-03-29 22:03 |显示全部楼层
回复 2# legs

这行代码没看懂,请多指教,谢谢了。

论坛徽章:
0
发表于 2019-04-01 08:57 |显示全部楼层
回复 3# 灿烂小猪

那个文件有规律,用了取模2,奇数行就替换那个位置为空格

论坛徽章:
0
发表于 2019-04-20 17:32 |显示全部楼层
回复 1# Innocencer

这事最适合vim来做了
  1. :%s/\(\S\S\)\ze\S*$/\1 /gec
复制代码

这代码就足够了

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

基于案例的 SQL 优化实战训练营

讲师:中电福富特级专家梁敬彬,参与本次课程培训,你将收获:
1. 能编写出较为高效的 SQL;
2. 能解决70%以上的数据库常见优化问题;
3. 能得到老师提供的高效的相关工具和解决方案;
4. 能举一反三,收获不仅仅是 SQL 优化。
现在购票享受8.8折优惠!
----------------------------------------
优惠时间:2019年3月20日前

大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP