| 胶片29关于子程序的一些说明-VI --分离参数
|
 
|
- sub popmany #看前面胶片的使用
- my $aref; #一个局部标量, 保留指向数组的指针
- my @retlist=(); #保留返回表的一个数组
- foreach $aref (@_) { #$aref对参数循环
- push(@retlist,pop(@$aref)); #@$aref是在参数中被指向的全局数组
- }#现在我们已经去掉每个输入数组的最后一个元素
- return @retlist; #@retlist有每个传入数组的最后一个元素
- }
| Copyright: NPACT |
|