程嶏清单9-6.txt

< linux网络编程工具>>配套源码

sub smaller_than_30
{
    my (@result);     # 局部变量，暂时储存返回值
    foreach $_ (@_)   # 扫描参数列
{   
       if ($_<30)     # 判断是否符合条件
       {
          push (@result, $_);    # 将符合条件的数加入列表中
}
}
return @result;     # 传回最后的列表
}
@number = (20..40);
@num_list = smaller_than_30(@number);
foreach $num (@num_list){
print $num,"  ";
}