Sum of Numbers in an Array

[Nathan Belomy]

#!/usr/bin/perl

@array = (1..1000);

sub total {
my($v1) = print @array;
} 

my($output) = &total();

I'll figure it out. Don't need your help. Thanks. Since the array is just

@array = (1..1000);
print @array;

or

some bs, this thing sucks.

[numberwhun]

Just because I was in a coding mood:

#!/usr/bin/perl

use strict;
use warnings;

my @array = (1..10);
my $sum = 0;

foreach my $num (@array){
	$sum = $sum + $num;
}

print("The sum is:  $sum\n");

Please notice the pragmas at the beginning, "use strict;" and "use warnings;". You want to use those at the beginning of every Perl script you write. They will save you a ton of headache.

Regards,

Jeff

[Nathan Belomy]

That helps a bunch. Man I still got a lot to learn. That little trick
$1 = $1 + $other didn't know you could do that. Yah man thanks again since I actually got so pissed, I broke something. At least I don't own a gun.

[Nathan Belomy]

#!/usr/bin/perl

use strict;
use warnings;

my @array = (1..1000);
my $sum = 0;

foreach my $num (@array){
    $sum = $sum + $num;
}

sub total {
my($v1) = print $sum;
}


my($output) = &total();
print "$output\n";

Happy as a clown. Only thing is, I'm right when I say the foreach is not a subroutine, it's a loop. Yah so this is correct.

[chorny]

use List::Util 'sum';
$sum=sum(@array);

[Nathan Belomy]

Thank You, I will try one too. So kind of you both to help me. Really appreciate that.