Hi,
ich hab bestimmt wieder so ne Frage, die schon zig-mal gestellt wurde:
»» Wie runde ich mit Perl auf x-Stellen (oder auf ganze Zahlen...)
Im Archiv hab ich auf Anhieb leider nichts gefunden! :(
Nur mal so ungestetet hingeschrieben..:
sub Runden {
my $wert = $_[0];
my $helper = int($wert);
if (($wert-$helper) >= 0.5) {
$helper++;
}
return $helper;
}
Ciao,
Wolfgang