Pass two array reference to a subroutine

   

@a = (1, 2, 3);
@b = (4, 5, 6);

sub addem
{
    my ($reference1, $reference2) = @_;
    for ($loop_index = 0; $loop_index <= $#$reference1; $loop_index++) {
        $result[$loop_index] = @$reference1[$loop_index] + @$reference2[$loop_index];
    }
    return @result;
}

@array = addem (\@a, \@b);
print join (', ', @array);

1.	Swap array value by using the sub range
2.	Passing Arrays
3.	Pass file handle global reference to a subroutine
4.	Pass reference to a subroutine to another subroutine
5.	Passing an array and modifying it,as a reference
6.	Passing by reference with pointers
7.	Passing References to a Subroutine
8.	Passing a range of value to a subroutine
9.	Passing array to a subroutine
10.	Passing arrays to a function
11.	Passing different number of parameter to a subroutine
12.	Passing hash to a subroutine
13.	Passing parameters to subroutines
14.	Passing two values to a subroutine
15.	displays all the arguments
16.	Using shift(@_) to get value passed into a subroutine
17.	shift parameter
18.	Subroutine parameter default value
19.	output the subroutine arguments using special variable @_
20.	Is a parameter defined
21.	The loop displays each individual argument

Pass two array reference to a subroutine : Parameter « Subroutine « Perl

Related examples in the same category