打印平均数以上的数值
sub average{
for(my $i=0;$i<=$#_;$i++){
$total+=$_[$i];
$n=$#_+1;
$ave=$total/$n;
}
$ave;
}
sub above_average{
my $j=0;
$ave2=shift(@_);
for(my $i=0;i<=$#_;$i++){
if($_[$i]>$ave2){
$above[$j++]=$_[$i];
}
}
@above;
}
@number=1..10;
$ave1=&average(@number);
@above1=&above_average($ave1,@number);
print "@above1\n";
可以运行,没有报错,但一直运行没有结果,哪位大侠帮我看看哪里错了呢,先谢谢了
[解决办法]
for(my $i=0;$i<=$#_;$i++){