in reply to Re: Arbitrary number of captures in a regular expression
in thread Arbitrary number of captures in a regular expression
while (<DATA>) { my ($params) = /^foo ((?:m \d+ *)*) bar$/; my @nums = $params=~ /\d+/g; print "$params -> (@nums)\n"; } __DATA__ foo m 1 m 2 m 3 m 4 bar foo m 2 m 4 m 7 bar foo m 1 bar
1 Looking at demerphq's slides on his work on extended regexes in Perl 5.10, it might become possible to have a simpler, single step solution in the near future. See %-.
But maybe I'm just dreaming.
|
|---|