Passing Arrays in a Function in Perl

How to Pass Array Values in a Function?


Passing arrays is to pass array values declared outside a function, to be used inside the function to make changes in an array, then to return the modified values as required. Now we are going to see how to pass array values in an user defined function.

Example :

#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
@a = (1, 2);
@b = (5, 8);
@c = add_vecpair( @a, @b );
print "@cn";
sub add_vecpair
my ($x, $y) = @_;
my @result;
for (my $i=0; $i < @$x; $i++)
$result[$i] = $x->[$i] + $y->[$i];
return @result;
Result :

6 10

In the above example the values of the arrays @a and @b, is passed as arguments to the "add_vecpair" user defined function, where the vector value is calculated, it returns an array, when the function is called the values are displayed.

Ask Questions

Ask Question