Re: Regex match iterative grouping


Welcome to the Monastery
	PerlMonks

Re: Regex match iterative grouping

by sfink (Deacon)

on Apr 06, 2006 at 17:10 UTC ( #541674=note: print w/replies, xml )

Need Help??

in reply to Regex match iterative grouping

Adjust the quotes for your shell:

perl -le '$_ = "abcd"; while (/(..)/g) { print $1; --pos }'

Or closer to your exact question:

perl -le '$_ = "abcdefg"; while (/(...)/g) { print $1; pos($_) -= leng
+th($1); pos($_)++ }'
[download]

You might be able to do that in a list-context match with an embedded expression, but that would be too scary for me.

Comment on Re: Regex match iterative grouping Select or Download Code

Replies are listed 'Best First'.

Re^2: Regex match iterative grouping
by SamCG (Hermit) on Apr 06, 2006 at 19:39 UTC

Ido

-----------------
_{s''limp';@p=split '!','n!h!p!';s,m,s,;$s=y;$c=slice @p1;so brutally;d;$n=reverse;$c=$s**$#p;print(''.$c^chop($n))while($c/=$#p)>=1;
=1;}

[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

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

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others chilling in the Monastery: (3)

As of 2023-03-21 08:10 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?