免费注册 查看新帖 |

Chinaunix

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

加一列空格 [复制链接]

论坛徽章:
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
复制代码

这代码就足够了

论坛徽章:
0
发表于 2019-04-23 00:04 |显示全部楼层
回复 2# legs

这思路不错

论坛徽章:
0
发表于 2019-05-21 13:54 |显示全部楼层
感谢2L和楼上。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会,8.5折限时优惠重磅来袭!
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。

限时8.5折扣期:2019年9月30日前


----------------------------------------

大会官网>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP