perl 子函数传入多个数组

 

perl中的引用和C中的指针一样，用"\"标识，引用后可使用符号“->”取值。解引用则在对应的数据类型前加$，@ 或%。

这里这里用两数组求和做示例，引用传递的子函数的用法。

use strict;

my @s1=(1,13,4,25,6,27,8,22);
my @s2=(11,2,34,5,6,23,1,54);

my @sum=sums(\@s1,\@s2);

foreach my $k(@sum){
    print "$k\n";
}

my @res;
sums2(\@s1,\@s2,\@res);

foreach my $k(@res){
    print "$k\n";
}


sub sums2{
    my ($lst1,$lst2,$res)=@_;
    my $i=0;
    while($i<@$lst1){
        push @$res,$lst1->[$i]+$lst2->[$i];
        $i++
    }
}


sub sums{
    my ($lst1,$lst2)=@_;
    my $i=0; my @res;
    while($i<@$lst1){
        push @res,$lst1->[$i]+$lst2->[$i];
        $i++;
    }
    return @res;
}