正则求助 - 问题出在哪啊

sunzhiguolu

看了篇帖子, 内容如下:

cat a
1234567890acb
cat b
1
2
3
a
b
c
期望结果如下:
12134567890abc
   2
   3
   a
   b
   c
paste command 或许可以

利用 paste 命令得到一个中间结果, 便于后续的处理:

1. paste a b

复制代码

1234567890acb   1
        2
        3
        a
        b
        c

我的代码如下:

1. paste a b|perl -ple 's/\A(?(?=(\w{2}))\1(\w+)|(\s{2}))\s*(\w+)/$1$3$4$2/'

复制代码

得到的结果未按照预期输出, 输出如下:
12134567890acb
        2
        3
        a
        b
        c

问题出在哪里呀, 还请大家指点, 谢谢大家...

sunzhiguolu

为了便于大家观察, 我将捕获组与变量之间的对应关系用颜色标识出来:

s/\A(?(?=(\w{2}))\1(\w+)|(\s{2}))\s*(\w+)/$1$3$4$2/

好了, 就这样了. 请大家指点, 谢谢大家...

sunzhiguolu

对了, 如果大家其他思路也请给予帮助, 指点. (如: 不借助 paste 命令)