perl正则表达式匹配首次出现

Question

我有以下内容：

my $str='"fld":{xyz..,"val":"x"},"fldA":{afd;ladf,"val":"valid y"},"fldB":{adsa;afda,"val":"invalid val x"}...';
my $fldNm="fldA";
if ( $str =~ /"$fldNm".*"val":"([^"]+)"/ ) {
    print "\n Val = $1 \n";
}

什么是匹配/打印“有效y”的正确正则表达式

当前的正则表达式匹配“fldA”和贪婪的匹配并跳过它的值，而是给我最后一个值：“invalid val x”

谢谢，

枷锁

Answer 1

正如你所提到的那样.*是贪婪的，它会继续吞下除了行尾之外的所有内容。 在一直匹配到行尾之后，它将解析下一个模式"val" 。 因为我们已经一直吃到线的末端，正则表达式现在将回溯到找到第一场比赛。 由于它的回溯，它将匹配最接近线末端的模式并停止，因为它找到了匹配。

你需要使用非贪心量词.*? 告诉正则表达式只能吞下字符，直到找到下一个模式，而不是吞下所有内容并回溯跟踪。

这是在Quntifiers下的http://perldoc.perl.org/perlre.html中描述的

默认情况下，量化的子模式是“贪婪的”，也就是说，它将尽可能多地匹配（给定一个特定的起始位置），同时仍然允许模式的其余部分匹配。 如果您希望它与可能的最小次数匹配，请使用“？”跟随量词。 请注意，含义不会改变，只是“贪婪”：