Adding and division of floating points && time 1

[sapatos]

Hi,

I have a file containing floating points. I need to add them all together and then divide by the total number (avg) whilst keeping the decimal precision. An example of each row is:

000001.062
000001.938
000000.812
000000.922
000001.047

Also these values actually represent time i.e 1.062 seconds etc. Can anyone help on this, I've spent a lot of time looking on the web and not found what I'm after.

Regards,

 

[stevexff]

Just do the arithmetic as you would normally, then use sprintf to format the output to four decimal places.

use strict;
use warnings;

my $sum;
my @floats = (<DATA>);
chomp @floats;

$sum += $_ foreach (@floats);
my $avg = sprintf('%.4f', $sum / @floats);

print $avg;

__DATA__
000001.062
000001.938
000000.812
000000.922
000001.047

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[sapatos]

Perfect thanks a lot.