perl 子函数传入多个数组
2021-03-15 07:39
标签：color class push weight 引用传递 数组 使用 for 函数 perl中的引用和C中的指针一样，用"\"标识，引用后可使用符号“->”取值。解引用则在对应的数据类型前加$，@ 或%。 这里这里用两数组求和做示例，引用传递的子函数的用法。 perl 子函数传入多个数组 标签：color class push weight 引用传递 数组 使用 for 函数 原文地址：https://www.cnblogs.com/mmtinfo/p/14011243.html 1 use strict;
2
3 my @s1=(1,13,4,25,6,27,8,22);
4 my @s2=(11,2,34,5,6,23,1,54);
5
6 my @sum=sums(\@s1,\@s2);
7
8 foreach my $k(@sum){
9 print "$k\n";
10 }
11
12 my @res;
13 sums2(\@s1,\@s2,\@res);
14
15 foreach my $k(@res){
16 print "$k\n";
17 }
18
19
20 sub sums2{
21 my ($lst1,$lst2,$res)=@_;
22 my $i=0;
23 while($i$lst1){
24 push @$res,$lst1->[$i]+$lst2->[$i];
25 $i++
26 }
27 }
28
29
30 sub sums{
31 my ($lst1,$lst2)=@_;
32 my $i=0; my @res;
33 while($i$lst1){
34 push @res,$lst1->[$i]+$lst2->[$i];
35 $i++;
36 }
37 return @res;
38 }