Ading two arrays together : Subroutine Definition « Subroutine « Perl






  1. Perl
  2. Subroutine
  3. Subroutine Definition

Ading two arrays together

   

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

sub addem {
    local(*array1, *array2) = @_;

    while (@array1) {

        unshift @result, pop(@array1) + pop(@array2);

    }

    return @result
}

@result = addem(*a, *b);
print join(", ", @result);








Related examples in the same category

1.A subroutine is defined by the sub keyword and the block of code that follows.
2.Accessing variables in subroutines
3.Adding two arrays in a subroutine
4.Create a subroutine
5.Define subroutine and call it with using global variable
6.Define subroutine prototype
7.Define subroutine then use it
8.Subroutine with arguments defined before it is used
9.Subroutine with no arguments defined after it is used: using ()
10.Subroutine with no arguments defined before it is used
11.Anonymous Subroutines
12.Anonymous functions