perl6 匹配任何一组单词的最佳方法是什么？

【问题标题】：perl6 What is the best way to match any of a group of words?perl6 匹配任何一组单词的最佳方法是什么？
【发布时间】：2016-12-31 06:20:10
【问题描述】：

我正在尝试找到一种简单的方法来匹配任何一组单词。我一直在用for循环，有没有更简单的方法？

my @a=<a b c d e f>;
my $x="a1234567";
say $x ~~ m/ @a.any /;

它返回 False。有没有办法让它工作？谢谢。

【问题讨论】：

【解决方案1】：

my @a = <a b c d e f>;
my $x = "a1234567";
say $x ~~ /@a/;

/@a/ 与/| @a/ 相同，这是最长的交替。您可以使用/|| @a/作为替代。

【讨论】：

@lisprogtor，如果您想接受它作为您问题的解决方案，请单击答案左侧的复选标记（单击它后，复选标记将变为绿色）。单击复选标记表示您不再需要帮助，它会给回答问题的人打分。
啊，我明白了！感谢您向我指出这一点！我会回去为回答我其他问题的人点击复选标记。谢谢。