#!/usr/bin/perl -w use strict; use warnings; my $a = integer(100000 + -1.45519152283669e-011 ); my $b = 100000; my $test = $a - $b; print "$a minus $b = $test\n"; 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; }