eine zahl runden mit perl ?

[lun4trix]

und noch ein problem (

wie kann ich eine zahl sagen wir die cpu geschwindigkeit ( da sie ja immer 2079,32 oder 2079,45 usw. sich ändert ...) runden lassen ?? .. auf 2000 oder 2100 ??

[baere]

abrunden auf die nächst-tiefere Hunderter-Zahl:

my $zahl = 2079;
$zahl = ((int) $zahl / 100) * 100;

auf die nächst höhere Hunderter-Zahl:

my $zahl = 2079;
$zahl = ($zahl % 100 == 0) ? $zahl : (((int) $zahl / 100) * 100) + 100;

[Joghurt]

auf die nächst höhere Hunderter-Zahl

Das geht auch einfacher:

#Abrunden:
$zahl = (100 * int ($zahl/100      ));
#Aufrunden:
$zahl = (100 * int ($zahl/100 + 0.99));

[tomes]

Ich benutze fuer Runden immer Math::Round

tom@tom:~> perl -e 'use Math::Round;print nearest(100, 2067.5967)."\n";'
2100

oder

tom@tom:~> perl -e 'use Math::Round;print nearest(100, 2007.5967)."\n";'
2000

tomes

[lun4trix]

danke euch es hat wunderbar funkt.