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