in reply to Leading Zeros w/ increment

I hate to "GOLF" this but I just had ta. Perl's magical increment was MADE for this sort of golf. 
$Max = $ARGV[3]; #no $Pad needed. And I added $Max
until ( $Start > $Max ) { 
  print "$Pre$Start$Post\n";
  getstore ( 
        $Url, 
        "$Start$Post"
       );
  $Start = substr(++($Start="z$Start"),1);
}
# or see it work with this one-liner...
perl -e '$a="0035";until($a>50){print$a=substr(++($a="z$a"),1),$/}'

[download]

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

Replies are listed 'Best First'.
Re: (GOLF)Re: Leading Zeros w/ increment
by idnopheq (Chaplain) on Apr 05, 2001 at 22:50 UTC
    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

[reply]
      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"

      [download]

      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,$/}'

      [download]

      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)

[reply]
[d/l]
[select]
        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

[reply]

In Section Cool Uses for Perl