Add the elements of each array how can it.?
@a1 = (1..5);
@a2 = (1..3);
@a3 = (1..4);
@tar = ("@a1", "@a2", "@a3");
foreach $each(@tar){
@ar = split(' ',$each);
foreach $eac(@ar){
$tot+=$eac;
}
print "$each total is: $tot\n";
}
In this bit of code gives output but the succeeding total value is add with preceding total value. But is I expect the outputs:
1 2 3 4 5 total is: 15
1 2 3 total is: 6
1 2 3 4 total is: 10
The issue is because you are using same variable $tot in each foreach loop. So it retains the old value. Simple fix is to define the $tot as lexical variable in first for each loop.
#!/usr/bin/perl
@a1 = (1..5);
@a2 = (1..3);
@a3 = (1..4);
@tar = ("@a1", "@a2", "@a3");
foreach $each(@tar){
my $tot;
@ar = split(' ',$each);
foreach $eac(@ar){
$tot+=$eac;
}
print "$each total is: $tot\n";
}
Output is
1 2 3 4 5 total is: 15
1 2 3 total is: 6
1 2 3 4 total is: 10
If you want $tot's scope to be just inside the loop, just declare it inside the loop:
for $each (@tar) {
my $tot;
Some tips:
Always include use strict; and use warnings; in EVERY perl script. No exceptions
Always declare your variables with my and use the smallest scope possible.
Study perldsc - Perl Data Structures Cookbook for alternative ways of working with arrays and array references.
These changes will clean up your script to the followign:
use strict;
use warnings;
my @a1 = (1..5);
my @a2 = (1..3);
my @a3 = (1..4);
my @AoA = (\@a1, \@a2, \@a3);
for my $arrayref (@AoA){
my $total = 0;
for my $val (@$arrayref) {
$total += $val;
}
print "@$arrayref total is: $total\n";
}
Outputs:
1 2 3 4 5 total is: 15
1 2 3 total is: 6
1 2 3 4 total is: 10
use List::Util 'sum'; ... my $total = sum @ar;use strict; use warnings;(though it won't help with this particular problem).my @tar = (\@a1, \@a2, \@a3);.