perl6 Herhangi bir kelime grubunun eşleştirilmesinin en iyi yolu nedir?

Question

Bir sözcük grubunun herhangi biriyle eşleştirmek için basit bir yol bulmaya çalışıyorum. Bir for döngüsü kullanıyorum, ancak daha basit bir yolu var mı?

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

False değerini döndürür. Çalışması için bir yolu var mı? Teşekkürler.

Answer 1

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

/@a/ uzun değiştirme olan /| @a/ aynıdır. Alternatif için /|| @a/'u kullanabilirsiniz.