in reply to Numbers....

There are may ways to do it, for example, if you are familiar with C, you might like to use printf() or sprintf().

I will show you another way, simply using string formatting : 

  my $number = 10.8766756;
  my $string = $number . ""; # force $number into a string
  $string =~ s/(\.\d)\d*/\1/; # if $string has one (or more) decimal
  # figures, replace them all by the first decimal figure

[download]

Another one is the purely mathematical method, which might (or might not) work, depending on the size of your numbers (notice that arithmetic with floating point numbers is not always exact) :
The int() function returns the integer part of a number, so we simply calculate 

  $string = int( $number * 100 ) / 100;

[download]
which will also give you 10.8, but note that the number is not rounded but truncated to 0, as the int documentation will tell you.

Replies are listed 'Best First'.
RE: Methods to format a number
by nuance (Hermit) on Jun 02, 2000 at 19:13 UTC
    that the number is not rounded but truncated to 0, as the int documentation will tell you.

    You can get around the truncation problem fairly easily with: 

    $string = int( ($number * 100) + 5 ) / 100;

    [download]
    Update: Well Alright then for the pedantic among us, see below ;-) (no offence meant, please don't take any) 
    my $dec = 100;  # Change as appropriate to give you the number
                # of decimal places you want

int( ($number * $dec) +
  int($number * $dec) % 2 ? 0.5 * $dec : 0) / $dec

    [download]
    That should sort out the rounding towards an even number.

    Nuance

[reply]
[d/l]
[select]

      While this method is quite slick, it won't work as expected with numbers that are of the form 0.5, as it will always round up to the next number instead of rounding to the nearest even number (a rule which tries to make sure that most rounding errors cancel each other).

      Update: nuance has updated the above post, so this post has become meaningless ;).

      Here is an example for a case when always rounding up and using the results in further calculation. Adam calls this "premature rounding", but I think there are valid cases to do this, for example when doing accounting or printing invoices. In this example, using the rounded values in further calculations increases the error introduced by rounding :
      Consider (for simplicity) 2.5 * 3.5 :
      MethodResultError
      exact8.750
      round up12.003.25
      round to nearest even number8.000.75
      In this (extreme) example, the rounding errors don't cancel each other out when always rounding up. There are also cases where rounding up and rounding to the nearest even number give the same rounding error (consider 3.5 * 1.5).

      And by the way, I'm not pedantic, I'm just trying to be accurate :)

[reply]
        You know, I love this web site! Why? Because I am always learning something. Usually its about Perl, but today it was about rounding.

        Corion's post confused me greatly because I had never heard of rounding to the nearest even... so I cruised out onto the internet and discovered a plethora of sites (mostly in college math departments) that defend it! So I am swayed. I also found an interesting site about significant digits.

        So, thank you Corion! You have my vote.

[reply]

In Section Seekers of Perl Wisdom