今天晚上用了半个多小时写了一个简单的程序,输出一串数字中比平均值大的数,其中有两个问题值得注意:
sub above_average
{
$number=@_;
foreach $how(@_)
{
$total=$total+$how;
}
$the_average=$total/$number;
foreach (@_)
{
if ($_>$the_average)
{
push(@larger,$_)#这里不用赋值,数组元素的添加,直接用push就好了
}
}
@larger;#子程序的返回值,一定要有,刚开始没有写
}
print "please input several numbers,and you will get the number which is large than their average\n";
@the_number_input=<STDIN>;
@the_number_larger=above_average(@the_number_input);
print "@the_number_larger\n";
学习的过程中,总结小的地方,才能够在写代码的过程中不出错!