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

Question

this question 的延续，可能更奇怪。

我可以吗？使用sub 连接两个regexes？ （当然，我明白，用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

你写的基本上是对的，但是你需要稍微调整一下语法。首先，您应该像任何其他子一样声明您的组合函数。接下来，似乎将一个正则表达式插入另一个，<$r> 是正确的语法，而要将函数调用插入一个正则表达式，<{my-sub(args)}> 是正确的语法。 （调用时不需要在 sub 前面加上 & 符号——& 主要用于当你想引用 Callable 而不调用它时。）结合这些小修复，你的代码就可以工作了：

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