Perl Regex替换段落标签

Question

我正在尝试使用正则表达式将paragragh标记内的内容替换为br br标记后的内容

 s/^[<]p[>](.+)[<][/]p[>]/\1[<]br[>][<]br[>]/

我收到错误Unmatched [在以<--- HERE m / ^ [<] p> [<] [

我尝试将[/]更改为反斜杠/，但我不确定如何解决这个问题。 谢谢=]

我实际上是

s/^<p>(.+)<\/p>/\1<br><br>/;

Answer 1

尝试这个：

s#(?=</p>)#<br><br>#

每当处理/ ，我喜欢使用另一个分隔符。 在这里，我使用# 。

因为，您只想添加<br><br>而不触摸<p>..</p> ，我们可以使用先行锚。 那是(?=...)所做的。 它寻找一个点之后有一个</p>并将其替换为替换字符串。

请注意，环顾四周的表达式为零宽度，即它们与任何字符都不匹配。

Answer 2

您可以使用此版本的正则表达式：

s/<p>(.+?)<\/p>/\1<br><br>/si

我删除了字符串起始锚^ ，很有可能您不需要它。 .+? 将确保您将匹配最接近的匹配</p> 。 si选项将启用不区分大小写的匹配和. 还将匹配换行符。