我的perl哪里错了,为什么调不通呢?刚学perl的菜鸟
sub above_average{
my $sum;
my $average;
my $count=@_;
my @newnumber;
@array=@_;
foreach (0..$#array){
$sum+=$array[$_];
}
$average=$sum/$count;
foreach $element (0..$#array){
if($array[$element]>$average){
push(@newnumber,$array[$element]);
}
}
@newnumber;
}
my @fred=above_average(1..10);
print "\@fred is @fred\n";
print "(should be 6 7 8 9 10)\n";
my @barney=above_average(100,1..10);
print "\@barney is @barney\n";
print "(Should be just 100)\n";
[解决办法]
这个没有问题啊,可以run的