Re: Arbitrary number of captures in a regular expression


There's more than one way to do things
	PerlMonks

Re: Arbitrary number of captures in a regular expression

by bsb (Priest)

on Sep 25, 2007 at 10:19 UTC ( #640885=note: print w/replies, xml )

Need Help??

in reply to Arbitrary number of captures in a regular expression

It's not fancy or general, but it's simple and may be adaptable to your purpose:

$ms = '(?: m (\d+))?' x 5; # 1)
print join(",", /^foo$ms bar$/ ),"\n" for (
    'foo m 1 m 2 m 3 m 4 bar',
    'foo m 2 m 4 m 7 bar',
    'foo m 1 bar',
);
__END__
1,2,3,4,
2,4,7,,
1,,,,
[download]

1) Where "any number" is equal to 5...

Comment on Re: Arbitrary number of captures in a regular expression Download Code

In Section Seekers of Perl Wisdom

Log In^?

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://640885]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others avoiding work at the Monastery: (2)

As of 2023-02-01 21:57 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

I prefer not to run the latest version of Perl because:

Results (14 votes). Check out past polls.

Notices^?