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

Question

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

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

返回False。有没有办法让它发挥作用？感谢。

Answer 1

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

/@a/与/| @a/相同，这是最长的交替。如需更改，您可以使用/|| @a/。