Re: How many loops are there in Perl?

[1 .. 5] ~~ sub { say "Inside loop $_[0]?" };  # Perl 5.10.1+
[download]

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

Replies are listed 'Best First'.
Re^2: How many loops are there in Perl? by davido (Cardinal) on Jan 31, 2012 at 18:51 UTC
That's one for the obfu-toolkit. I'm surprised we haven't seen abuse of the regex engine and `(?{...})` blocks. Dave	[reply] [d/l]
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]