WG: [Vienna-pm] [OT] Rundungsverhalten von Perl

Stefan Weiss spaceman at foo.at
Fri Oct 24 06:51:40 CDT 2003


On Friday, 24 October 2003 12:30, Nagy Wilhelm wrote:

> > my $fA = 5/3;  # ich habe mich fuer die 5/3 variante entschieden ;-)))
> > print "was daraus wurde: $fA\n";
> >
> > # ### und jetzt ein COBOL Trick ;-))
> > #
> > $fA += .5;
> > print "als ganze Zahl: ".int($fA);

Das würd ich dann doch lieber in der COBOL-Ära lassen.
Nimm Number::Format, dann kannst du auch negative Zahlen runden:

use Number::Format qw(round);

my $fA = -8/9;
print "ohne runden  : $fA\n";
print "mit int()    : " , int($fA) , "\n";
print "mit int(+.5) : " , int($fA + .5) , "\n";
print "mit round()  : " , round($fA, 0) , "\n";


cheers,
stefan



More information about the Vienna-pm mailing list