52 函数或子程序-IV--一个例子
(Llama书的第八章)
sub bigger_than {
local($test,@values);#建立局部变量,给
检测数和原来的数组(test number and original list)
($test,@values)=@_;#分离参数表
给出较好的名字(give nicer names)
local(@result);#存储和返回结果的变量
foreach $val(@values) {#每步通过
参数表(argument list)
if($val>$test) {#我们应加入这个值
push(@result,$val);#加到结果数组中
}
}
@result;#要求指定什么被返回
}#可正式地写为return @result.
Copyright: NPACT
