Perlでsubを使った正規表現を構築する

Question

how to pass regexes as argumentsを学習した後、subを使用して最初の正規表現を構築しようとしましたが、もう一度スタックしました。以下の複雑なルールには申し訳ありませんが、私はそれらを単純化するために全力を尽くしました。私は少なくともこの問題に近づくための手がかりが必要です。

regexはleftとrightはペアで来るべきであるとmiddleの変異体が選択されるrightに依存交番、left、middleとrightからなるそれらの各々で構成すべきです。

Pairsのアレイはleftとrightのペアを含む：

my Pair @leftright = 
    A => 'a', 
    ... 
    Z => 'z', 
    ; 

Middle変異体は、ハッシュから読み出される：rightがzある場合

my Regex %middle = 
    z =>/foo /, 
    a =>/bar /, 
    m =>/twi /, 
    r =>/bin /, 
    ... 
    ; 

%middle<z>は%middle<a>、選択されるべきである - right場合aなど

したがって、得られた正規表現は

my token word { 
    | A <%middle[a]> a 
    | Z <%middle[z]> z 
    | ... 
} 

または、より一般的

my token word { 
    | <left=@leftright[0].key> 
     <middle=%middle{@leftright[0].value}> 
     <right=@leftright[0].value> 
    | (the same for index == 1) 
    | (the same for index == 2) 
    | (the same for index == 3) 
... 
} 

であるべきであり、それはAbaraとZfoozと一致すべきです。 、@leftrightからすべてのペアを取るrightの値に応じて、適切な%middle{}を配置し、1 regexにそれをすべて結合しますsubと（grammarに例えば使用することができます）token wordを構築する方法

？

my Regex sub sub_word(Pair @l_r, Regex %m) { 
... 
} 
my token word { 
    <{sub_word(@leftright, %middle)}> 
} 

は、私がleft、middle、およびrightの値を知っておく必要が試合後：

"Abara" ~~ &word; 
say join '|', $<left>, $<middle>, $<right> # A|bar|a 

Answer 1

私はまだtokenを使用して、これを行うことができませんでしたが、ここでEVALとソリューションであり、 Regex（また、%middleをStrのハッシュとして使用しており、Regexのハッシュではありません）

出力：私はEVALを使用することを選んだ理由の詳細については

rx/$<left>='A' $<middle>='bar' $<right>='a'|$<left>='Z' $<middle>='foo' $<right>='z'/ 
｢Abara｣ 
left => ｢A｣ 
middle => ｢bar｣ 
right => ｢a｣ 

、あなたは 'X'だ権利を与え、効果に何かを言っているようですねHow can I interpolate a variable into a Perl 6 regex?