perl6 शब्दों के किसी भी समूह से मेल खाने का सबसे अच्छा तरीका क्या है?

Question

मैं शब्दों के किसी भी समूह से मेल खाने का एक आसान तरीका खोजने की कोशिश कर रहा हूं। मैं लूप के लिए उपयोग कर रहा हूं, लेकिन क्या कोई आसान तरीका है?

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

यह झूठा रिटर्न देता है। क्या यह काम करने का कोई तरीका है? धन्यवाद।

Answer 1

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

/@a/ जो सबसे लंबे समय तक प्रत्यावर्तन है /| @a/ के समान है। वैकल्पिकता के लिए आप /|| @a/ का उपयोग कर सकते हैं।