正则分组的捕获与反向引用

jason680

回复 7# sjdy521

这是深层问题...
回头看楼主给的例...
为什么要改变\1,\2...因为捕获值改变...

如果用 (\d)\g{-1}
就不用管(\d)的捕获值有没有改变

你不是叫人多读书....自己读读吧....
   

sjdy521

回复 10# yahoon


    有失效吗？我的理解，你设置了不捕获，那么自然(\d)捕获到的东西是不会存储在$1的 那么你使用反向引用\1 得到的会是空而已 不是失效吧

jason680

回复 6# yahoon

5.8.8已经六年了...升级你的perl吧!!!
http://search.cpan.org/~nwclark/perl-5.8.8/
perl-5.8.8          [Download] [Browse]          31 Jan 2006


如果用 (\d)\g{-1}
就不用管(\d)的捕获值有没有改变
   

sjdy521

回复 11# jason680


    又去仔细读了一遍，但是还是感觉不理解你说的。。我再多读几遍，多实验下吧

jason680

回复 14# sjdy521

Here you are

$ perl -e '$_="112233"; if(m/\b((\d)\2)+\b/){print "str match\n"}'
str match

$ perl -e '$_="112233"; if(m/\b(?:(\d)\2)+\b/){print "str match\n"}'
Reference to nonexistent group in regex; marked by <-- HERE in m/\b(?:(\d)\2 <-- HERE )+\b/ at -e line 1.

$ perl -e '$_="112233"; if(m/\b(?:(\d)\1)+\b/){print "str match\n"}'
str match

# use \g{-1} that didn't care about what capture number(\1 or \2) for (\d)

$ perl -e '$_="112233"; if(m/\b((\d)\g{-1})+\b/){print "str match\n"}'
str match

$ perl -e '$_="112233"; if(m/\b(?:(\d)\g{-1})+\b/){print "str match\n"}'
str match

sjdy521

回复 15# jason680


    要下班了 我先记着，晚上回去看

yahoon

回复 16# sjdy521

$ perl -e '$_="112233"; if(m/\b(?\d)\2)+\b/){print "str match\n"}'
Reference to nonexistent group in regex; marked by <-- HERE in m/\b(?\d)\2 <-- HERE )+\b/ at -e line 1.
对比
$ perl -e '$_="112233"; if(m/\b((\d)\2)+\b/){print "str match\n"}'
str match

前者仅仅多了?:,\2就不起作用了

yahoon

回复 12# sjdy521

非常的合理

就是非捕获的分组没有对应的 $n和\n
文档里面好像就只说没有$n而已

   

sjdy521

回复 1# yahoon


    童鞋，方法2可以匹配到呢

1. #方法2
   
2. if (/\b(?:(\d)\1)+\b/) {
   
3.         print "str match";
   
4. }

复制代码

根据我做的一些实验，(?:)不不捕获模式下，如果里面再有括号，仍然会捕获，并存放在$1,$2...
因此方法2中的(\d)对应$1,也的确是可以使用\1的呀

sjdy521

回复 15# jason680


    晚上做了一些测试，得出的结论是在你的例子中\g{-1}就是\1 没其他什么特别的。。。