关于perl里的永不回溯的占有优先量词 有点疑问 想请教下

45177659

在《Perl高效编程》（第2版）的第92页条款38时，讲到了“永不回溯的占有优先量词”，

链接：http://book.51cto.com/art/201105/259595.htm

书的所举的例子是没有什么问题的，但是我觉得这个例子不能说明问题，所以稍微改
动了下,构造一个可以成功的例子，测试结果如下：

Administrator@SWYWXQ1DHSU3MJ6 ~
$ cat t.pl
#use re 'debugcolor';  

my $string = 'GCGGCCGCAGCUGCCGCUGCAGCGXXGGCUGCCGCCGCG';  

if ( $string =~ /^(?:GC.)*GCG(..G)/ ) {  
      print "Test1 : Matches GCG with XXG afterward!\n";  
  }

  
if ( $string =~ /^(?:GC.)*+GCG(..G)/ ) {  
      print "Test2 : Matches GCG with XXG afterward!\n";  
  }

Administrator@SWYWXQ1DHSU3MJ6 ~
$ perl t.pl
Test1 : Matches GCG with XXG afterward!

结果只有第一种费时的方法匹配成功，第二种高效的方法却失败了，想请教下是我测试的方法不对，
还是书上写的不准确？ 如果可以的话，能举个其他的例子说明下，谢过了！

qwwz将军

.*        匹配 0 次或多次的任何字符
.+        匹配 1 次或多次的任何字符

GCAGCGXXG      “GCA”和“GCG”之间没有任何字符，所以第二种方法匹配不到。

jason680

回复 1# 45177659

my $string = 'GCGGCCGCAGCUGCCGCUGCAGCGXXGGCUGCCGCCGCG';  

if ( $string =~ /^(?:GC.)*GCG(..G)/ ) {  
      print "Test1 : Matches GCG with XXG afterward!\n";  
  }

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. local $_ = 'GCGGCCGCAGCUGCCGCUGCAGCGXXGGCUGCCGCCGCG';
   
6. while(/(GC.)/g){
   
7.         next unless(substr($_, pos(), 6) =~ /\AGCG..G/);
   
8.         print("Matches GCG with XXG afterward!\n"), last;
   
9. }

复制代码