[已解决]求助：正则表达式匹配换行符的问题

bzdghdn

小弟想写一个正则表达式检测一个字符串中是否不含有换行符，我觉的表达式"^[^\n]+$"表示字符串从开始到结束由一个或多个非换行符组成，所以

1. #!/usr/bin/perl
   
2. my %string = ("abc\n"=>'abc\n',"\nabc"=>'\nabc',"a\nbc"=>'a\nbc');
   
3. #换行符在最后，换行符在最前，换行符在中间
   
4. for(keys %string)
   
5. {
   
6.         if (/^[^\n]+$/)
   
7.         {
   
8.                 print $string{$_},' match ^[^\n]+$',"\n";
   
9.         }
   
10.         else{
    
11.                 print $string{$_},' not match ^[^\n]+$',"\n";
    
12.         }
    
13. }

复制代码

运行结果

1. a\nbc not match ^[^\n]+$
   
2. \nabc not match ^[^\n]+$
   
3. abc\n match ^[^\n]+$

复制代码

从上面程序看到如果换行符在最末的时候，正则表达式^[^\n]+$能够匹配"abc\n"。这点我想不通，请高手指点。
因为如果\n换成其它字符的时候，好像都不能匹配，比如

1. #!/usr/bin/perl
   
2. my %string = ("abc\r"=>'abc\r',"\rabc"=>'\rabc',"a\rbc"=>'a\rbc');
   
3. for(keys %string)
   
4. {
   
5.         if (/^[^\r]+$/)
   
6.         {
   
7.                 print $string{$_},' match ^[^\r]+$',"\n";
   
8.         }
   
9.         else{
   
10.                 print $string{$_},' not match ^[^\r]+$',"\n";
    
11.         }
    
12. }

复制代码

结果

1. a\rbc not match ^[^\r]+$
   
2. abc\r not match ^[^\r]+$
   
3. \rabc not match ^[^\r]+$
   

复制代码

是不是因为换行符有什么特殊性？

bzdghdn

在perlretut中有下面的介绍
The anchor ^ means match at the beginning of the string and the anchor $ means match at the end of the string, or before a newline at the end of the string. Here is how they are used:

    "housekeeper" =~ /keeper/;    # matches
    "housekeeper" =~ /^keeper/;   # doesn't match
    "housekeeper" =~ /keeper$/;   # matches
    "housekeeper\n" =~ /keeper$/; # matches
$ means match at the end of the string, or before a newline at the end of the string.
看来换行符在字符串的末尾确实是一个比较特殊的情况

我试了试，java和python中的正则表达式也是同样的情况

zhlong8

默认情况下 $ 匹配字符串结尾，或字符尾部的一个\n前面。注意它只是个位置信息，不实际匹配任何字符

/s /m 修饰符会影响 . 和 ^$ 的意义，了解细节自己去看文档 perlretut perlre

bzdghdn

谢谢zhlong8