已经解决.结贴 脚本 Perl 正则-5 替换连续的空白行

sunzhiguolu

代码如下: (我的当前环境是 Windows)

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub replace{
   
7.         my ($sStr, $sCnt) = (@_);
   
8.         my ($sFormat) = ("by %s\n\$sStr = |%s|\n");
   
9.         unless (defined $sCnt){
   
10.                 $sStr =~ s{^\s*$}{<br />}gm;
    
11.                 printf $sFormat, "/g :", $sStr;
    
12.         }else{
    
13.                 while ($sStr =~ s{^\s*$}{<br />}m) {}
    
14.                 printf $sFormat, "while :", $sStr;
    
15.         }
    
16. }
    
17. 
    
18. 
    
19. my ($sStr1, $sCnt) = (
    
20. "a\n \n        \n         \nb\n\n         \n\nc", 0);
    
21. replace ($sStr1);
    
22. #replace ($sStr1, $sCnt);
    

复制代码

输出结果如下:

1. 
   
2. by /g :
   
3. $sStr = |a
   
4. <br />
   
5. b
   
6. <br /><br />
   
7. c|
   

复制代码

我期望的结果如下:

1. 
   
2. by while :
   
3. $sStr = |a
   
4. <br />
   
5. b
   
6. <br />
   
7. c|
   

复制代码

我的疑问:
1.> 问题出在哪里?

sunzhiguolu

如果将第 9 行的代码修改一下, 如下:
$sStr =~ s{^\s*(?=$)\r?\n}{<br />}gm;
也能得到正确的结果, 为什么?

在此先谢过大家了...

104359176

1. $str =~ s{\n+}{<br />}g

复制代码

sunzhiguolu

回复 3# 104359176

$str =~ s{\n+}{<br />}g

非常感谢您的回复:
...b\n\n         \n\nc
s{\n+}{<br />}g

   

sunzhiguolu

如果大家曾经遇到过此类问题或是知道是为什么还请大家给予指点及帮助...

sunzhiguolu

在这里我有一个疑问:
\s 元字符序列难道不能描述 空格, 水平制表符, \r, \n 吗? (在 Windows 环境)

但是在一些小工具中却能很好的进行工作 如:Notepad++

sunzhiguolu

非常感谢大家. 谢谢!