Perl 6正規表現の変数とキャプチャグループ

Question

キャプチャグループで変数regexを作成すると、全体の一致はOKですが、キャプチャグループはNilです。

my $str = 'nn12abc34efg'; 
my $atom =/\d ** 2 /; 
my $rgx =/($atom) \w+ ($atom) /; 

$str ~~/$rgx/; 
say ~$/; # 12abc34 
say $0; # Nil 
say $1; # Nil 

私は$rgxを回避するためにプログラムを変更する場合、すべてが期待どおりに動作：

Regex object coerced to string (please use .gist or .perl to do that) 

私たちに何かを伝えます：

my $str = 'nn12abc34efg'; 

my $atom =/\d ** 2 /; 
my $rgx =/($atom) \w+ ($atom) /; 

$str ~~/($atom) \w+ ($atom) /; 
say ~$/; # 12abc34 
say $0; # ｢12｣ 
say $1; # ｢34｣ 

Answer 1

あなたのコードでは、コンパイラは次の警告を与えます正規表現は文字列として扱われるべきではありません。正規表現を入れ子にするには2つのより適切な方法があります。私は/ $rgx /に一致していないよ

my $str = 'nn12abc34efg'; 
my Regex $atom =/\d ** 2 /; 
my Regex $rgx =/(<$atom>) \w+ (<$atom>) /; 
$str ~~ $rgx; 

注：まず、あなたはアサーション内のサブ正規表現（<>）を含めることができます。それはある正規表現を別の正規表現の中に入れている。ちょうど$rgxと一致してください。

より良い方法は、名前付き正規表現を使用することです。次のように​​と正規表現を定義すると、$<atom>[0]と$<atom>[1]としてマッチグループにアクセスできるようになります：

my regex atom { \d ** 2 }; 
my $rgx =/<atom> \w+ <atom> /; 
$str ~~ $rgx; 

Answer 2

キー観測が$str ~~/$rgx /;「は正規表現の内側の正規表現」であるということです。 $rgxを一致させ、$0と$1を自身のMatchオブジェクト内に設定しますが、周囲の一致オブジェクト内にその情報を格納する場所がないため、表示できませんでした。例をあげれば明らかです。

my $str = 'nn12abc34efg'; 
my $atom =/\d ** 2 /; 
my $rgx =/($atom) \w+ ($atom) /; 

$str ~~/$0=$rgx /; 
say $/; 

$0の内容に注意してください。別の例として、適切な名前を付けてみましょう：

my $str = 'nn12abc34efg'; 
my $atom =/\d ** 2 /; 
my $rgx =/($atom) \w+ ($atom) /; 

$str ~~/$<bits-n-pieces>=$rgx /; 
say $/;