打印平均数以上的数值
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";
可以运行，没有报错，但一直运行没有结果，哪位大侠帮我看看哪里错了呢，先谢谢了
[解决办法]
i<=$#_
改为
$i<=$#_
即可正常。
原来$#_就是@_，哪本书上介绍的？
