打卡17-perl 子函数

#!/opt/exp/bin/perl -w

sub foo {
shift;
shift;
}
print foo (10,20);

comments: 虽然没有return，但是perl返回最后一句的result

#transfter parameter use shift or $_[0],@_ array...

如 $subname=shift;

@_ array函数把接收到的参数保存到特殊的perl数组@_中，其中每个元素($_[0],$_[1],.....)称作一个参数

2 下列引自网络:

函数参数中传递数组和引用的一些问题

我就直接引用这本书中的例子了，就是如果我们在参数中传递两个数组的时候，会出现一些问题。

subgetarrays{  
 my(@a,@b)=@_;  
 .  
 .  
}  

@fruit=qw(applesorangesbanana);  
@veggies=qw(carrotcabbageturnip);  
getarrays(@fruit,@veggies);  

上面这段代码我们预期@fruit会赋值给@a，@veggies赋值给@b，但其实结果不是那样的。

Perl函数参数在调用getarrays(@fruit,@veggies)的时候，其把参数@fruit和@veggies压缩到单个数组@_中。

这样在getarrays函数内部，就会把@_赋值给@a，即就是@fruit和@veggies都赋值给@a了。

我们根本无法知道一个数组何时结束以及下一个数组何时开始，因为我们只知道@_.

这时传递参数引用可以很好的解决这个问题。即我们没有必要传递整个数组，只要传递相关数组的引用就可以了。

subgetarrays{  
 my($fruit_ref,$veg_ref)=@_;  
}  

@fruit=qw(applesorangesbanana);  
@veggies=qw(carrotcabbageturnip);  

getarrays(\@fruit,\@veggies);  
 
函数getarrays()总是接收两个值，即两个引用，无论这些引用指向的数组有多长。这时，$fruit_ref和$veg_ref可以用来显示或编辑数据，如下所示：
subgetarrays{  
 my($fruit_ref,$veg_ref)=@_;  
 print"Fruit:",join(',',@$fruit_ref);   
 print"Veggies:",join(',',@$veggies_ref);  
}  

当你将对标量、数组或哈希结构的引用作为参数传递给函数时，有几个问题必须记住。当你传递引用时，
Perl函数参数能够对引用指向的原始数据进行操作，所以在使用引用的时候我们应该注意这一点。