在Perl 6中作为参数传递正则表达式

Question

这是这个问题的延续，可能是一个更奇怪的问题。

例如，我可以使用sub连接两个正则表达式吗？（当然，我明白，如何使用regex做到这一点）

以下代码完全错误，但我希望它可以解释我想做什么：

my Regex sub s12 ( $c, $v) {
   return / <{$c}> <{$v}> /
}

my regex consonant { <[a .. z] -[aeiou]>  }
my regex vowel { <[aeiou]> }

my regex open_syllable { &s12( &consonant, &vowel ) }

"bac" ~~ m:g/ <open_syllable> /;
say $/; # should be 'ba'

Answer 1

你写的基本上是对的，但是你需要稍微调整一下语法。首先，您应该像其他子函数一样声明组合函数。接下来，它似乎要将一个正则表达式插入到另一个正则表达式中，<代码>

sub combine(Regex $a, Regex $b --> Regex) {
    / <$a> <$b> /
}

my regex consonant { <[a .. z] -[aeiou]>  }
my regex vowel { <[aeiou]> }

my regex open_syllable { <{combine(&consonant, &vowel)}> }

"bac" ~~ m:g/ <open_syllable> /;
say ~$/; # output: ba