Prev: Quantifier 2

Match several words

Note! This site is about Perl 6.
If you are looking for a solution for Perl 5, please check out the Perl 5 tutorial.

This won't match as there are more words


use v6;

my $words = 'foo, bar, moo';

if $words ~~ m/^ \w+ $/ {
    say 'no match';

so we need to add a regex for the separators , and spaces and we put the whole thing in a [] which is a (non-capturing) grouping, apply a quantifier on that but we also need to add another word matching regex for the last word


use v6;

my $words = 'foo, bar, moo';

if $words ~~ m/^ [\w+\,\s*]* \w+ $/ {
    say 'match words';

It could be also written this way: The generic quantifier can also get a separator on its right hand side.


use v6;

my $words = 'foo, bar, moo';

if $words ~~ m/^ [\w+] ** [\,\s*] $/ {
    say 'match words again';

The Perl 6 Tricks and Treats newsletter has been around for a while. If you are interested to get special notification when there is new content on this site, it is the best way to keep track:
Full name:
This is a newsletter temporarily running on my personal site ( using Mailman, till I implement an alternative system in Perl 6.
Gabor Szabo
Written by Gabor Szabo

Published on 2012-01-01

Prev: Quantifier 2


In the comments, please wrap your code snippets within <pre> </pre> tags and use spaces for indentation.
comments powered by Disqus
Suggest a change
Elapsed time: 2.46321727

Support my Perl 6 book!

I am writing a book on Web Application Development in Perl 6 and raising money via crowdfunding. Please support my effort!

Perl 6 Tricks and Treats newsletter

Register to the free newsletter now, and get updates and news.