加一列空格

Innocencer

菜鸟级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

legs

perl -pe'$.%2&&s# ..\K# #' A.txt

灿烂小猪

回复 2# legs

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

legs

回复 3# 灿烂小猪

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

xiaomm250

回复 1# Innocencer

这事最适合vim来做了

1. :%s/\(\S\S\)\ze\S*$/\1 /gec

复制代码

这代码就足够了

inchonline

回复 2# legs

这思路不错

Innocencer

感谢2L和楼上。