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