Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re^2: Amusement in Auto-Increments

by cog (Parson)
on Jul 22, 2009 at 20:52 UTC ( #782437=note: print w/replies, xml ) Need Help??

in reply to Re: Amusement in Auto-Increments
in thread Amusement in Auto-Increments

Using this bit of documentation, here's what happens:

  • 1zz
  • 1zz doesn't match "/^[a-zA-Z]*[0-9]*\z/"

    Rule #1 - gets converted to a number, 1, which is then incremented to 2.

  • zzz
  • zzz matches "/^[a-zA-Z]*[0-9]*\z/"

    Rule #2 - the last z is incremented to a (stays in the same range, which is a-z), carries one over; second z is incremented to a, carries one over; first z is incremented to a, carries one over, which gets turned into an a.

  • zz1
  • zz1 matches "/^[a-zA-Z]*[0-9]*\z/"

    Rule #2 - 1 is incremented to 2.

  • z3z
  • z3z doesn't match "/^[a-zA-Z]*[0-9]*\z/"

    Rule #1 - the value is converted to numeric; since there are no digits before the first non-digit, the numeric value is 0; that value is then incremented to 1.

  • zz9
  • zz9 matches "/^[a-zA-Z]*[0-9]*\z/"

    Rule #2 - 9 is incremented to 0, carries one over, and then the process with the two zs is the same as from above.

    Log In?

    What's my password?
    Create A New User
    Node Status?
    node history
    Node Type: note [id://782437]
    [Corion]: Lady_Aleena: Quite good ;) I'm working four days now, instead of five, which helps my mood and my weekends tremendously
    [Corion]: My Perl output hasn't recovered, but as $work is still somewhat stressful, I don't think this would be different with a five day workdweek
    [Lady_Aleena]: Corion, that is a good thing (TM) 8)
    [Corion]: And this evening, I'm actually dusting off some old module of mine and bringing it up to the last version of the library I'm wrapping
    [Lady_Aleena]: Updating things can be fun, if there is a better way to do it.
    [Corion]: Lady_Aleena: Mostly, it's just housekeeping, but it inspires me about things I could do with it, so that's good ;)
    [Lady_Aleena]: By the way, I stopped by to let someone know I'm still alive, though I haven't found anything to write in perl for a while now.
    [Lady_Aleena]: I need inspiration.

    How do I use this? | Other CB clients
    Other Users?
    Others taking refuge in the Monastery: (5)
    As of 2017-09-24 18:15 GMT
    Find Nodes?
      Voting Booth?
      During the recent solar eclipse, I:

      Results (274 votes). Check out past polls.