perl6単語のグループのいずれかに一致する最良の方法は何ですか？

私は単語のグループのいずれかに一致する簡単な方法を見つけることを試みています。 forループを使用していますが、より簡単な方法はありますか？perl6単語のグループのいずれかに一致する最良の方法は何ですか？

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

偽を返します。それを動作させる方法はありますか？ありがとう。

2016-12-31 lisprogtor

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

/@a/最長交互ある/| @a/と同じです。代わりに、/|| @a/を使用できます。

2016-12-31 12:37:17 CIAvash

それは動作します！本当にありがとう！！！ – lisprogtor

@lisprogtor質問の解決方法として回答を受け入れる場合は、回答の左側にあるチェックマークをクリックしてください（クリックするとチェックマークが緑色に変わります）。色）。チェックマークをクリックすると、もう助けが必要ないことが示され、質問に答えた人にポイントが与えられます。 – 7stud

ああ、私は参照してください！これを私に指摘してくれてありがとう！私は他の質問に答えた人のチェックマークをクリックして戻ってきます。ありがとう。 – lisprogtor

答えて