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.