正则表达式替换

Question

我正在尝试了解有关正则表达式的更多信息，并且一直想知道以下内容：

如何在点字符后插入空格，但仅当点字符不被数字包围时，例如它需要匹配 。但不是22.22！

Answer 1

这是零宽度断言的一个很好的例子：

$subject =~ 
    s/(?<=\.         # after a dot,
        (?!          # but not matching
          (?<=\d\.)  # digit followed by dot before, AND
          (?=\d)     # digit afterward
        )
      )/ /x
    g;

我我想你会发现这些评论是不言自明的！ :)

Answer 2

尝试：

echo "22.22"|perl -pe 's{(\D)\.(\D)}{$1. $2}'
22.22
echo "2x.x2"|perl -pe 's{(\D)\.(\D)}{$1. $2}'
2x. x2