in reply to Zero Padding to the Right of the Decimal


On this line you are converting the number to a string: 
    $i=sprintf("%3.2f",$i);

[download]
But on the following line you convert it back to a number*: 
    $i=$i+0.1;

[download]
So either do the increment before you do the sprintf or else just use printf: 
    printf "%3.2f\n", $i;

[download]

--
John.

* Internally it will be both a number and a string.

Replies are listed 'Best First'.
Re: Re: Zero Padding to the Right of the Decimal
by KPeter0314 (Deacon) on Jan 15, 2004 at 19:09 UTC
    I agree whole-heartedly, the number probably shouldn't be baked into a format until you plan to display it. <insert standard disclaimer about being appropriate for the rest of your script and your coding style>

    So it might look like this with only one print/printf/sprintf: 

    my $i=0;
while ($i <=100){
    $i=$i+0.01;
    printf("%3.2f\n",$i);
}

    [download]

    -Kurt

[reply]
[d/l]

      Just one more thing, how about this:

          printf( "%3.2f\n" , ($i + 0.01)  );

      [download]

      Instead of the two lines above?


      ($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
      =~y~b-v~a-z~s; print
[reply]
[d/l]
        you'll never exit the loop that way, because you never modify $i.
        You could use +=, though : 
        my $i=0;
while ($i <=100){    
    printf("%3.2f\n",$i+=0.01);
}

        [download]
[reply]
[d/l]
            printf( "%3.2f\n" , ($i + 0.01)  );

        doesn't work.

        Change to:

            printf( "%3.2f\n" , ($i += 0.01)  );

        dave

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom