adding numbers in and array

newtarge · Oct 27, 2003

Hi,

I have a problem trying to add numbers in an array there is 1 number per line of the array. I want to add all line togather.

help!!

raider2001 · Oct 27, 2003

If I understand your explanation correctly, the following should work.

Code:

$total = 0;
foreach $line (@array) {
    if ($line =~ /(\d+)/) {
        $total += $1;
    }
}

chazoid · Oct 27, 2003

for (@array){
$sum += $_;
}

icrf · Oct 27, 2003

Code:

use List::Util qw/sum/;
$sum = sum @array;

----------------------------------------------------------------------------------
...but I'm just a C man trying to see the light

newtarge · Oct 28, 2003

Thank you very much Raider2001 it worked well, except if the number had a decimal in it "10.4" would ignore the .4.

raider2001 · Oct 28, 2003

Changing the regular expression should fix that problem. Try the following:

Code:

$total = 0;
foreach $line (@array) {
    if ($line =~ /(\d+\.*\d*)/) {
        $total += $1;
    }
}