Runden und kleinste Einheit - #77501 (Allgemeines zu Perl)

moritz

2007-06-13 21:57

User since
2007-05-11
923 Artikel
HausmeisterIn

Ich würde der Rundungs-Funktion von sprintf misstrauen (hab in C damit schlechte Erfahrungen gemacht), und es so machen:

Code (perl): (dl )

use POSIX qw(floor);
my $unit = 0.05;
my $number = 12.34567;
my $rounded = $unit * floor(0.5 + $number / $unit);

Das +0.5 garantiert "richtiges" runden, d.h. 0.5 wird zu 1 gerundet, 0.49 zu 0.
Damit geht man auch keinen Weg über einen String.