キャプチャがPerl正規表現マッチングで定義されているかどうかをテストするには？

Question

キャプチャがPerl正規表現マッチングで定義されているかどうかをテストするにはどうすればよいですか？

#!/usr/bin/env perl 
use v5.10; 
my $str="foobar 
barfoo"; 

while($str =~ m/(?:(f.*))|(?:(b.*))/g) { 
    say "+ $1"; 
    say "- $2"; 
} 

これは、出力

​​

私がしたいことはありながら

+ foobar 
- barfoo 

すなわち、 $1または$2が一致しない場合は、印刷しないでください。

Answer 1

定義済みのものはテストしていないので、+/-いずれの方法でも印刷されます。

while($str =~ m/(?:(f.*))|(?:(b.*))/g) { 
    say "+ $1" if defined($1); 
    say "- $2" if defined($2); 
} 

Answer 2

defined(...)機能を使用してください。 $1が定義されていない場合、defined($1)はfalseを返します。

Answer 3

それは$1や友人を設定する副作用に頼らないのがベストです。あなたが実証したように、それはバグの家族の原因であり、避けられるべきです。代わりに、単にマッチ演算子の戻り値を使用します。

while(my ($plus, $minus) = $str =~ m/(?:(f.*))|(?:(b.*))/g) { 
    say "+ $plus"; 
    say "- $minus";