Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: (GOLF)Re: Leading Zeros w/ increment

by idnopheq (Chaplain)
on Apr 05, 2001 at 22:50 UTC ( #70222=note: print w/ replies, xml ) Need Help??


in reply to (GOLF)Re: Leading Zeros w/ increment
in thread Leading Zeros w/ increment

THX, but the 'z' in the automagical increment line of wonder astounds me, but I think it's involved in the incrementation.

This does break, though, if you no not need to pad : i.e. 1 to 20.

Thoughts?
Dex


Comment on Re: (GOLF)Re: Leading Zeros w/ increment
Re: Re: (GOLF)Re: Leading Zeros w/ increment
by extremely (Priest) on Apr 05, 2001 at 23:12 UTC
    If you don't need to pad then $count++ works fine. The trick to this all is that perl's ++ is magical on some strings. Try these:
    my ($a, $b, $c, $d, $e) = ("aaa", "ab000", "123", "00123", "321ba",); $a++; $b++; $c++; $d++; $e++; print "a=$a\nb=$b\nc=$c\nd=$d\ne=$e\n"

    You'll notice when you run those that $e gets chopped to just numbers. In fact, my stunting isn't really necessary since perl will happily leave the "00" on the front of $d! The only trick to it is never treating $d as a number. Look at this:

    # now that is golfing. perl -e '$a="0035";until("$a">50){print++$a,$/}'

    Cute huh? Perl is like a squirrel's nest. Good stuff is everywhere but most of it is nuts...

    Your code could be re-updated to have quotes around "$String" in the comparison for the loop and just have $String++ where the "magical" part was. Sad that I didn't even know how slick it was. My stunt kept the comparison from blasting the string but it is better just to never treat it numerically.

    --
    $you = new YOU;
    honk() if $you->love(perl)

      I just had what my high school calculus teacher referred to as a "a-ha experience"! I was treating my script's $d exquivallent as a number, then as text!

      THX
      Dex

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://70222]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2015-07-03 23:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls