perl6在正则表达式中否定其字符的多个单词和排列

您可以匹配任何字词,然后使用<！{}>主张拒绝“一”或“零”排列的词：

say "two dollar" ~~ / :s ^ (w+) <!{ $0.comb.sort.join eq "eno" | "eorz" }> dollar $/;

使用之前/之后：

或者,您可以预先生成不允许的单词的所有排列,然后使用<！before>之前拒绝它们.或<！after>正则表达式中的断言：

my @disallowed = <one zero>.map(|*.comb.permutations)?.join.unique;

say "two dollar" ~~ / :s ^ <!before @disallowed>w+ dollar $/;
say "two dollar" ~~ / :s ^ w+<!after @disallowed> dollar $/;