Re: How many loops are there in Perl?

by repellent (Priest)

on Jan 31, 2012 at 08:32 UTC ( #950905=note: print w/ replies, xml )

Need Help??

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

Comment on Re: How many loops are there in Perl? Download Code
Re^2: How many loops are there in Perl? by davido (Bishop) 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 (Monsignor) 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]

Node Status^?

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

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others imbibing at the Monastery: (13)

As of 2013-05-23 12:02 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?