一个正则表达式替换问题

shihuaqino1

1. $text = "with.\n\n\n\n\n\nTherefore";
   
2. $text =~ s/^\s*$/<p>/mg;
   
3. print $text;

复制代码

我的意图：如果$text中有多个空白行，则将这些空白行替换成一个<p>。我所期待的结果为：
with.
<p>
Therefore
但运行这段代码后，结果如下：
with.
<p><p>
Therefore

有没有牛人知道这是怎么回事？

3P党人

with.\n\n\n\n\n<GAP>\nTherefore

第一次 ^\s*$/ 在 <GAP> 之前的 \n\n\n\n\n 处成功，替换为 <p>
第二次 在 <GAP> 处，由于 ^\s*$/  可以匹配空，所以替换空为 <p>
第三次 在 硕果仅存的 \n 处，虽然 ^\s*$/  可以匹配空，但由于处于实字符处要求最小匹配1个字符，所以失败。

如此得证。

RE_HASH

s/^\s+|\n+/<p>/g
If there are spaces on the empty lines you want to replace
s/^\s+|[ \n]+/<p>/g

shihuaqino1

回复 2# 3P党人


    很有道理。应该用s/^\s+$/<p>/mg

shihuaqino1

回复 3# RE_HASH


    使用s/^\s+|[ \n]+/<p>/g，整个字符串只会匹配[ \n]+。得到的结果将会是with.<p>Therefore

Perlvim

linux windows 的换行符不同

tempo8

3P党人是神马？
神马是3P党人？

3P党人

3P党人是神马？
神马是3P党人？
tempo8 发表于 2011-08-25 09:14

   


我是农民的儿子

pengphy

回复 2# 3P党人


    不明白那个GAP是怎么来的 求解释

pengphy

1. 
   
2. my $i = 0;
   
3. $text =~ s/^\s$/++$i/gme;
   
4. print $i;
   
5. print "\n $text";
   

复制代码

1. 
   
2. 4
   
3. with.
   
4. 1234
   
5. Therefore
   

复制代码

为什么是四次？ 如果不加g的话 是可以完成替换的 就像lz要求的那样