Thank you everyone for your input... I forgot the basics... This was only happening in about 1 in 150 cases...
Solution was: sub IFormat_num{ # # value = number to format, required # places= decimal places, required # float = character to prefix string with # credit= credit format, (<1>,2,3) = ("surround string with <>", "CR suffix", "- suffix") # my ($value, $places, $float, $credit) = @_; $credit = 1 unless $credit =~ /[1-3]/; my $is_credit = 1 if $value < 0; my $format = '%.' . $places . 'f'; # 12-Mar-08 #my $formated = $float . &commify(sprintf('%.*f',$places,abs($value)));# 12-Mar-08 don't know what this was doing! my $formated = $float . &commify(sprintf($format,abs($value))); # 12-Mar-08 if ($credit == 1) { return $is_credit?'<' . $formated . '>':$formated . ' '; } elsif ($credit == 2) { return $is_credit?$formated . 'CR':$formated; } else { return $is_credit?$formated . '-':$formated . ' '; } } John W Moon http://dmspulsesurvey.myflorida.com/is -----Original Message----- From: John W. Krahn [mailto:[EMAIL PROTECTED] Sent: Wednesday, March 12, 2008 9:05 AM To: Perl Beginners Subject: Re: Sum not producing zero Moon, John wrote: > > Below is a small script and results... Can someone example what I am > doing wrong - the sum should produce zero but does not. http://perlmonks.org/?node_id=665673 perldoc -q 99999999 perldoc perlnumber John -- Perl isn't a toolbox, but a small machine shop where you can special-order certain sorts of tools at low cost and in short order. -- Larry Wall -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/