正则表达式 – perl非贪心问题

问题：我试图匹配“lol”锚点的href.

注意：我知道这可以通过perl HTML解析模块完成,而我的问题不是在perl中解析HTML.我的问题是关于正则表达式本身,HTML只是一个例子.

测试用例：我有4个测试.*？和[^“].第一个产生预期的结果.然而第三个没有,第四个只是,但我不明白为什么.

问题：

>为什么第三次测试在两个测试中都失败了.*？和[^“]？非贪婪的运算符不应该工作吗？
>为什么第四次测试在两个测试中都有效.*？和[^“]？我不明白为什么在前面包含一个.*来改变正则表达式.(第三和第四个测试除了前面的.*之外是相同的).

我可能不明白这些正则表达式是如何工作的.一个perl cookbook recipe提到的东西,但我不认为它回答了我的问题.

use strict;

my $content=<<EOF;
<a href="/hoh/hoh/hoh/hoh/hoh" class="hoh">hoh</a>
<a href="/foo/foo/foo/foo/foo" class="foo">foo </a>
<a href="/bar/bar/bar/bar/bar" class="bar">bar</a>
<a href="/lol/lol/lol/lol/lol" class="lol">lol</a>
<a href="/koo/koo/koo/koo/koo" class="koo">koo</a>
EOF

print "| $1 | nnThat's okn" if $content =~ m~href="(.*?)"~s ;

print "n---------------------------------------------------n";

print "| $1 | nnThat's okn" if $content =~ m~href="(.*?)".*>lol~s ;

print "n---------------------------------------------------n";

print "| $1 | nnWhy does not the 2nd non-greedy '?' work?n"
  if $content =~ m~href="(.*?)".*?>lol~s ;

print "n---------------------------------------------------n";

print "| $1 | nnIt now works if I put the '.*' in the front?n"
  if $content =~ m~.*href="(.*?)".*?>lol~s ;

print "n###################################################n";
print "Let's try now with [^]";
print "n###################################################nn";


print "| $1 | nnThat's okn" if $content =~ m~href="([^"]+?)"~s ;

print "n---------------------------------------------------n";

print "| $1 | nnThat's ok.n" if $content =~ m~href="([^"]+?)".*>lol~s ;

print "n---------------------------------------------------n";

print "| $1 | nnThe 2nd greedy still doesn't work?n"
  if $content =~ m~href="([^"]+?)".*?>lol~s ;

print "n---------------------------------------------------n";

print "| $1 | nnNow with the '.*' in front it does.n"
  if $content =~ m~.*href="([^"]+?)".*?>lol~s ;