runden in Perl - #50205 (Allgemeines zu Perl)

root

2004-12-22 12:36

User since
2003-08-15
120 Artikel
BenutzerIn
[default_avatar]

Das hab ich noch bei mir gefunden für dicke fette Euros :-)

Code: (dl )

sub float2money{
    my $zahl =$_[0];
    return "0,00" if $zahl ==0;
    $zahl = int($zahl*100+0.5);
    $zahl =~ m/(\d)(\d)$/;
    $zahl = int($zahl/100);
    return $zahl.",".$1.$2;
}