小编bpj*_*bpj的帖子

(如果这是重复的道歉,但谷歌/搜索是不可能的$+!)

我正在寻找最接近/最好的Perl's $+aka $LAST_PAREN_MATCH.

对于那些不了解Perl的人来说,它的描述如下:

$LAST_PAREN_MATCH
$+      The text matched by the last bracket of the last successful search
        pattern. This is useful if you don't know which one of a set of
        alternative patterns matched.

也就是说,如果我有这样的图案(b)|(a)|(r),然后$+将包含任一b,a或r取决于哪个子模式匹配.

我拥有的最好的是

next((g for g in reversed(match.groups(None)) if g is not None),None)[0]

对于长期的Perl黑客而言,这似乎是一个简单的代码.(不是说我不知道​​我可以将它包装在一个函数中last_paren_match(match):-)