找到perl中匹配字符串的第一个和最后一个出现

Question

想要为<p>代码集插入开始和结束元素。

输入

<p>Para1</p>
<p>Para2</p>
<p>Para3</p>

预期产出

 <div>
   <para>Para1</para>
   <para>Para2</para>
   <para>Para3</para>
 </div>

如何查找<p>(.[^\<]*)<\/p>的第一个和最后一个，并插入<div>

Answer 1

从第一个<p>到最后一个</p>，只需跨越正则表达式，然后将<div>放在它周围：s#(<p>.*</p>)#<div>\n$1\n</div>#s。

编辑：正如@mbethke注意到的，为了能够让.跨越换行符，您必须使用s-modifier。