shell或Tcl如何用一条命令将一个行的多个空格替换成回退符加一个空格,即与上一行合并

randolpha · 发表于 2020-9-9 20:56:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

本帖最后由 randolpha 于 2020-9-10 17:08 编辑

shell或Tcl如何用一条命令将一个行的多个空格替换成回退符加一个空格,即与上一行合并
a1 a2 a3 a4
b1
   b2 b3 b4
c1
      c2 c3 c4
d1 d2 d3 d4

替换为
a1 a2 a3 a4
b1 b2 b3 b4
c1 c2 c3 c4
d1 d2 d3 d4

% cat a.txt
a1 a2 a3 a4
b1
   b2 b3 b4
c1
      c2 c3 c4
d1 d2 d3 d4
% source do.tcl
% cat a.txt
a1 a2 a3 a4
b1 b2 b3 b4
c1 c2 c3 c4
d1 d2 d3 d4

zhuyi1234567899 · 发表于 2020-9-10 14:21:25

perl ：s/\s*/\s\n/

randolpha · 发表于 2020-9-10 14:41:35

zhuyi1234567899 发表于 2020-9-10 14:21
perl ：s/\s*/\s\n/

最好运行去运行一下,你的正则是错误的.
你的正则的意思是:将0个或多个空格替换为空格加换行.

[解决] shell或Tcl如何用一条命令将一个行的多个空格替换成回退符加一个空格,即与上一行合并

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

站长推荐 /2