我试图找到一种简单的方法来匹配任何一组单词.我一直在使用for循环,但是有更简单的方法吗？
my @a=<a b c d e f>; my $x="a1234567"; say $x ~~ m/ @a.any /;
它返回False.有没有办法让它发挥作用？谢谢.
解决方法
my @a = <a b c d e f>; my $x = "a1234567"; say $x ~~ /@a/;
/ @ a /与/ |相同@ a /这是最长的交替.如需更改,您可以使用/ || @一个/.