Re^2: How many loops are there in Perl?

That's one for the obfu-toolkit. I'm surprised we haven't seen abuse of the regex engine and (?{...}) blocks.

Dave

Comment on Re^2: How many loops are there in Perl? Download Code

Replies are listed 'Best First'.
Re^3: How many loops are there in Perl? by LanX (Saint) on Feb 01, 2012 at 23:04 UTC
as you wish :) `DB<72> (" "x10) =~ m/ (?{print $x++})/g => (" ", " ", " ", " ", " ", " ", " ", " ", " ", " ") 0123456789` [download] I'm surprised nobody tried `s///e` Cheers Rolf update: `DB<20> $_=" "x10; s/ /print $x++/ge => 10 0123456789` [download]	[reply] [d/l] [select]