Passing Arrays in a Function in Perl
How to Pass Array Values in a Function?
Explanation
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.
#! 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.
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;
}
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.
