Ich kann mir beim besten Willen nicht erklären, warum das folgende Ergebnis so ausfällt wie es ausfällt.
use POSIX;
my $g = 6.65;
my $t = $g * 4;
my $r = $t - $g;
my $n = $r / $g;
my $c = ceil($n);
print "$c ($n)\n";
Siegel-tastisch, ich weiß - sorry.
Ich habe das Problem für meine Anwendung wie folgt gelöst:
use POSIX;
my $g = 6.65;
my $t = $g * 4;
my $r = $t - $g;
my $n = $r / $g;
my $c = ceil("$n");
print "$c ($n)\n";
...aber ich bin verwirrt, warum das hier notwendig ist.