如何将变量插入Perl 6正则表达式？

Question

大纲05提到Perl6没有将变量插入正则表达式中，但是可以将外部变量与模式相关联。据我所知，文档中没有提到这个功能。我认为人们还是会希望以某种方式从一个字符串建立一个模式，所以我很好奇这将如何工作。

这里有一个程序演示了现在发生的事情。我不知道这是应该发生的还是有人想要的。我在模式中插入一个变量。如果用查看$r。perl，您将看到变量名。然后，我应用模式，它匹配。我更改变量的值。现在模式不匹配。将其更改为其他可行的选项，然后再次匹配：

my $target = 'abcdef';

my $n = 'abc';
my $r = rx/ ( <$n> ) /;

# the smart match like this doesn't return a Match object
# https://rt.perl.org/Ticket/Display.html?id=126969
put 'rx// directly: ',
    $target ~~ $r
        ?? "Matched $0" !! 'Misssed';

# now, change $n. The same $r won't match.
$n = 'xyz';

put 'rx// directly: ',
    $target ~~ $r
        ?? "Matched $0" !! 'Misssed';

# now, change back $n. The same $r does match.
$n = 'ab';
put 'rx// directly: ',
    $target ~~ $r
        ?? "Matched $0" !! 'Misssed';

如果那是它应该做的，好吧。文档在这里很轻，测试（事实上的规范）对于像这样的远程行为来说并不复杂。

我可以做额外的工作来关闭一个副本（根据$n中的内容，可能比我显示的工作量更多），这让我感到不舒服：

my $r = do {
    my $m = $n;
    rx/ <$m> /;
    };

但是，我仍然希望有一种方法来“确定”一个模式（哦，我的上帝，我只是要求/o回来）。Regex中的一个方法。我想人们会寻找这个功能。

my $r = rx/ .... /.finalize;  # I wish!

或者，Perl6有一个更好的方法来做这类事情，我只是充满了老式的思维。Perl 6有规则而不是正则表达式。实际上，这一切背后都有一个解析器。我认为定义标记或规则可能是一种方法，但我认为我遇到了同样的问题。我看不出有什么子规则工厂。

还有别的办法吗？

Answer 1

作为使用闭包的替代方法，您当然可以通过EVAL构建正则表达式。

除了这两个可以说是低劣的解决方案之外，我也画了一张空白。请注意，您可以通过

/ <{ BEGIN compute-string-once-at-compile-time }> /

但我不知道如何用它来解决这个问题。。。