perl替代sed分裂多个|

Posted 2023-01-19

我能够在sed命令中完成此操作，但无法在perl中使用它。想要在没有任何空格或字母数字的情况下在靠近的管道字符之间添加空格。

input           ==>  a|123|##||||
expected output ==>  a|123|##| | | |

这个sed命令工作正常：

echo "a|123|##||||" | sed 's/\([^[:blank:][:alnum:]]\)|/\1 | /g'

输出上面的命令==> a|123|## | | | |

在perl中，我无法让它工作

echo "a|123|##||||" | perl -pe 's/\([^[:blank:][:alnum:]]\)|/\1 | /g'

输出以上命令

| a | | | 1 | 2 | 3 | | | # | # | | | | | | | | | 

答案

仅在彼此相邻的那些|之间添加空间

echo "a|123|##||||" | perl -pe's/\|(?=\|)/\| /g'

我使用前瞻为了能够检测连续（和重叠！）对，两个以上的|串在一起：只有第一个匹配被消耗，所以第二个留在那里进行下一场比赛，以防万一在它之后又是另一个（再次断言）。

另一答案

使用前瞻和后瞻的另一种方式。

$ echo "a|123|##||||" | perl -pe's/(?<=\|)(?=\|)/ /g '
a|123|##| | | |

$

另一答案

正确的Perl语法将是：

echo "a|123|##||||" | perl -pe 's/([^\s\w])\|/$1 | /g'

• 管道角色必须转义
• $ 1用于第一组比赛