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

bianca

2009-12-11 17:26

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Nächste Optimierungsfrage: Möchte gern vor dem Komma alle führenden Nullen entfernen aber nur, solange die Variable wenigstens length 1 hat.

Meine Lösung:

Code (perl): (dl )

$vorkomma = substr ($vorkomma,1) while $vorkomma =~ /^0/ && length ($vorkomma) > 1;

Geht das geschmeidiger?

10 print "Hallo"
20 goto 10