2014-02-04T12:54:26 qwe123qwe

3. und am wichtigsten : ist das dann tatsächlich auch sattelfest ? intern bekomme ich bei einer glatten Division (aslo ohne Rest) ja doch immer eine Dezimalzahl -- wird die dann immer richtig als Ganzzahl ausgegeben ?

1
2
3
4
5
6
7
8

sub integer {
    my $wert = shift (@_) || 0;
    return 'FEHLER' if $wert =~ /e\+?\d+$/;
    return 0 if $wert =~ /e-\d+$/;
    $wert = $1 if $wert =~ /^(.*?)\./;
    $wert = 0 if !$wert or $wert == -0;
    return $wert;
}