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/.