Perl命名捕获组

Question

我在正则表达式中创建了两个命名的捕获变量，第二个似乎没有返回任何值，而第一个可以。我不知道为什么......这里是代码。

my $string = 'test [google] another test [windows]'; 

my $regex=qr/\w*\[{1}(?<firstBracket>\w+)\]{1}(?<secondBracket>\w*)/ip; 

$string=~ /$regex/; 

say $+{secondBracket}; 

我期待“secondBracket”将会返回。 我可以做$+{firstBracket}，但不是第二个...有人可以帮忙吗？

谢谢。

Answer 1

你大概的意思是：

my $string = 'test [google] another test [windows]'; 

if($string =~ /.*?\[(?<firstBracket>\w+)\].*?\[(?<secondBracket>\w+)\]/i) { 
     say $+{firstBracket}; 
     say $+{secondBracket}; 
} 

输出

google 
windows 

或

my $re = qr/.*?\[(?<firstBracket>\w+)\].*?\[(?<secondBracket>\w+)\]/i; 
if($string =~ $re) { 
    ... 
} 

具有相同的输出...