Kaufmännisch korrekt runden (gelöst) - #129222 (Allgemeines zu Perl)

bianca

2009-12-11 17:10

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

2009-12-11T14:46:55 renee

Code (perl): (dl )

1
2

my ($count) = $nachkomma =~ m!^(0*)[^0]!;
$vornull = length $count > $stellen ? $stellen : length $count;

Deine zweite Zeile musste ich leicht ändern wegen 0.0105,3 sieht jetzt so aus:

Code (perl): (dl )

my ($count) = $nachkomma =~ m!^(0*)[^0]!;
$count = '' if !defined $count;
my $vornull = length $count;
$vornull -- if substr ($nachkomma,0,$stellen) eq '0' x $stellen;

10 print "Hallo"
20 goto 10