'$'究竟是匹配newline后，还是前?

pupilzeng

http://perldoc.perl.org/perlre.html 中的一段话:

By default, the "^" character is guaranteed to match only the beginning of the string, the "$" character only the end (or before the newline at the end), and Perl does certain optimizations with the assumption that the string contains only one line. Embedded newlines will not be matched by "^" or "$". You may, however, wish to treat a string as a multi-line buffer, such that the "^" will match after any newline within the string, and "$" will match before any newline. At the cost of a little more overhead, you can do this by using the /m modifier on the pattern match operator.

这不是说"$"应该是匹配newline前面的那个位置?
但是我试验的结果是:

1. 
   
2. $_ = "abc\ndef";
   
3. /c$def/m #yes, 这个是怎么回事呢? \n到哪去了?
   
4. /c\n$def/m # yes
   
5. /c$\ndef/m #no
   

复制代码

从这上面的结果，不说明'$'匹配的是newline后面的那个位置吗(跟^一样了)?
跟前面的那段话相反了。

我的perl版本:
This is perl, v5.8.3 built for MSWin32-x86-multi-thread[/code]

tiw

>;/c$def/m #yes, 这个是怎么回事呢? \n到哪去了?
>;/c\n$def/m # yes
$def会被理解为一个scalar, 你的到yes并不是因为匹配
在任何时候都用
use strict；
use warnings；

flw

原帖由 "tiw" 发表：
$def会被理解为一个scalar, 你的到yes并不是因为匹配
在任何时候都用
use strict；
use warnings；

还有啊，一个好的可以语法着色的编辑器也很重要，可以在书写代码的时候就一眼看出来。

pupilzeng

原帖由 "tiw" 发表：
>;/c$def/m #yes, 这个是怎么回事呢? \n到哪去了?
>;/c\n$def/m # yes
$def会被理解为一个scalar, 你的到yes并不是因为匹配
在任何时候都用
use strict；
use warnings；

谢谢，确实是这样的
但是有没有办法让它不这样认为呢?
我现在使用的办法是:
/c\n$ def/mx
有没有更好的办法?

pupilzeng

原帖由 "flw" 发表：

还有啊，一个好的可以语法着色的编辑器也很重要，可以在书写代码的时候就一眼看出来。

我使用的就是vim
是可以较好的着色的，不过，我没大相信它   

tiw

原帖由 "pupilzeng" 发表：


谢谢，确实是这样的
但是有没有办法让它不这样认为呢?
我现在使用的办法是:
/c\n$ def/mx
有没有更好的办法?

你确定这样可以？ 我运行是不行的
tiw@xiaolongnv ~/works/perl
$ cat ./test.pl
#!/usr/bin/perl -w
use strict;
use Data:umper;
$_ = "abc\ndef";
print "ok" if /c\n$ def/mx;

tiw@xiaolongnv ~/works/perl
$ ./test.pl

tiw@xiaolongnv ~/works/perl
$

我认为在*nix下面 /aaa\n/ 和/aaa$/是相同的（好像有点区别，记不起来了   ） 所以

1. 
   
2. tiw@xiaolongnv ~/works/perl
   
3. $ cat ./test.pl
   
4. #!/usr/bin/perl -w
   
5. use strict;
   
6. use Data::Dumper;
   
7. $_ = "abc\ndef";
   
8. print "ok" if /c\ndef/mx;
   
9. 
   
10. tiw@xiaolongnv ~/works/perl
    
11. $ ./test.pl
    
12. ok
    
13. tiw@xiaolongnv ~/works/perl
    
14. $
    

复制代码

[/code]

apile

$在通常都會匹配到 \n之前...
但是如果你用//s;則會跳過\n...直接匹配最後一個....
perldoc中有很詳細的說明...

pupilzeng

[quote]原帖由 "tiw"][/quote 发表：

您弄错了我的意思
我第一贴是说
/c\n$def/ 应该是不能匹配的，但是它匹配了
后面是说
/c\n$ def/mx 确实是不匹配的
所以跟你的结果是一样的，也就验证了$是匹配newline之前的位置

1. 
   
2. $_ = "abc\ndef";
   
3. print 'c$def: yes', "\n" if m'c$def'm;
   
4. print 'c$ def/mx: yes', "\n" if /c$ def/m;
   
5. print 'c^def: yes', "\n" if /c^def/mx;
   
6. print 'c\n^def: yes', "\n" if /c\n^def/m;
   
7. print 'c\n$def: yes', "\n" if m'c\n$def'm;
   
8. print 'c$\ndef: yes', "\n" if m'c$\ndef'm;
   

复制代码

结果为:

1. 
   
2. c\n^def: yes
   
3. c$\ndef: yes
   

复制代码

pupilzeng

原帖由 "apile" 发表：
$在通常都會匹配到 \n之前...
但是如果你用//s;則會跳過\n...直接匹配最後一個....
perldoc中有很詳細的說明...

这个跟//s无关，而是跟//m有关
当没有指定//m的时候，$是字符串的最后，或者是，最后的newline的前面的那个位置
当指定//m的时候，^匹配字符串中任何位置的\n之后，$匹配字符串中任何位置的\n之前

1. 
   
2. $_= "abc\n123\n";
   
3. print '/(.)$/g :' , " $1\n" while m/(.)$/g;
   
4. print '/(.)$\n/g :' , " $1\n" while m'(.)$\n'g;
   
5. print '\'(.)$\n\'mg :' , " $1\n" while m'(.)$\n'mg;
   
6. print '\'(.)$\n\'sg :' , " $1\n" while m'(.)$\n'sg;
   
7. print '\'(.)$\'sg :' , " $1\n" while m'(.)$'sg;
   
8. print '\'(.)$\'smg :' , " $1\n" while m'(.)$'smg;
   

复制代码

结果:

1. 
   
2. /(.)$/g : 3
   
3. /(.)$\n/g : 3
   
4. '(.)$\n'mg : c
   
5. '(.)$\n'mg : 3
   
6. '(.)$\n'sg : 3
   
7. '(.)$'sg : 3
   
8. '(.)$'sg :
   
9.                           #这是一个newline
   
10. '(.)$'smg : c
    
11. '(.)$'smg : 3
    
12. '(.)$'smg :
    
13.                               #这是一个newline
    

复制代码

由上面的代码可以看出:
当字符串最后一个字符是\n时，$即可匹配这个\n之前的位置，也可匹配这个\n之后的位置(即字符串的结尾)，这就是最后一行代码为什么会匹配3次的原因。

tiw

原帖由 "pupilzeng" 发表：
由上面的代码可以看出:
当字符串最后一个字符是\n时，$即可匹配这个\n之前的位置，也可匹配这个\n之后的位置(即字符串的结尾)，这就是最后一行代码为什么会匹配3次的原因。

You are right, and these are written in "rogramming Perl"
5.6.2. Endings: The \z, \Z, and $ Assertions.
\z match ending of string
\Z match ending of string but before newline if there has
$ like \Z but when /../m is used,  $ match any place before
newline

Learn more and clear