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) { 
    ... 
} 

具有相同的輸出...