http://www.perlmonks.org?node_id=1005288


in reply to Re^4: Efficient way to replace a set of values with another set of values
in thread Efficient way to replace a set of values with another set of values

Ha ha. I spent an inordinate amount of time trying to make a one-liner solution for arbitrarily large numbers (where it would go to "aa" after "z"). However, it turned out that today is Friday and I can't think that hard.



When's the last time you used duct tape on a duct? --Larry Wall
  • Comment on Re^5: Efficient way to replace a set of values with another set of values

Replies are listed 'Best First'.
Re^6: Efficient way to replace a set of values with another set of values
by tobyink (Canon) on Nov 23, 2012 at 16:00 UTC

    You were looking for:

    s/^(\d+)/$n=$1;$l="a";$l++while--$n;$l/meg

    Doesn't cope with 0 especially well.

    perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'