Re^2: How can I reduce this with a REGEX?

..appreciate it guys but I'm trying to make this solution simpler & shorter- not longer!

This isn't too bad I spose.. Seems to work in a 1-liner:
s/(\d\d)((-\d\d)*?)(-\1)/$1$2/g while /(\d\d).*(-\1)/;

Comment on Re^2: How can I reduce this with a REGEX?

Replies are listed 'Best First'.
Re^3: How can I reduce this with a REGEX? by hazylife (Monk) on Mar 15, 2014 at 10:47 UTC
Which can probably be further reduced to: `$ cat 1078350.in 12-12 12-12-12 12-13-12-13 12-12-13-13 12-13-13-14 $ perl -pe '1 while s/(\d\d)(.*?)(?:-\1)/$1$2/g' 1078350.in 12 12 12-13 12-13 12-13-14` [download]	[reply] [d/l]
Re^4: How can I reduce this with a REGEX? by misterperl (Pilgrim) on Mar 17, 2014 at 14:54 UTC
$ perl -pe '1 while s/(\d\d)(.*?)(?:-\1)/$1$2/g' 1078350.in thanks I like this construct, never saw it before.. You got my ++ vote...	[reply]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks