Adding two arrays in a subroutine : Subroutine Definition « Subroutine « Perl






Adding two arrays in a subroutine

   

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

print @array;


sub addem
{
    my ($ref1, $ref2) = @_;

    while (@{$ref1}) {

        unshift @result, pop(@{$ref1}) + pop(@{$ref2});

    }

    return @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.Ading two arrays together
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