解释代码

小白perl

我刚学perl,有些地方不懂,想大家请教了
#!usr/bin/perl
my @fred =average(1..10);
sub average {
my ($average,$sum);
foreach(@fred){
$sum+=$_;
$average=$sum/10;
}
foreach(@fred){
if ($_>$average){
return "$_\n";
}
}
}

这个代码哪里错了呢,为什么运行的时候什么也没有?

sosflyer

回复 1# 小白perl

1. 你想要算出一个列表中所有数相加的平均值,然后把这个列表中比平均值大的放入新列表
   
2. #!usr/bin/perl
   
3. my @fred =average(1..10);
   
4. 
   
5. sub average {
   
6. my ($average,$sum);
   
7. foreach(@fred){  #你这里的@fred是啥啊,应该是@_吧
   
8. $sum+=$_;
   
9. $average=$sum/10;  #这里还没累加完呢就除了,应该放在这个foreach外面吧
   
10. }
    
11. foreach(@fred){                 #这里的@fred不知道是啥,我觉得按照你的意思应该是(1..10)
    
12. if ($_>$average){
    
13. return "$_\n";                 #你这里返回一个标量?应该push到一个数组里,最后返回数组吧
    
14. }
    
15. }
    
16. }

复制代码

dgtnk

回复 1# 小白perl


    return 改成 print  就成了

Shell_HAT

1. &average(1..10);
   
2. print "@fred";
   
3. sub average {
   
4.     foreach $num (@_) {
   
5.         $sum += $num;
   
6.     }
   
7.     $len = @_;
   
8.     $avg = $sum / $len;
   
9.     foreach $num (@_) {
   
10.         if ($num >  $avg) {
    
11.             push (@fred, $num);
    
12.         }
    
13.     }
    
14. }

复制代码

gis11rj

回复 1# 小白perl

#!/usr/bin/perl

my @fred =above_average(1..10);
print "\@fred is @fred\n";
print "(should be 6 7 8 9 10)\n";

sub above_average {
my $average = average (@_);
my @list;
foreach my $element (@_){
  if ($element > $average){
      push @list,$element;
   }
}
@list;
}


sub average {
if (@_ == 0){ return };
my $count = @_;
print $count;
my $sum = total (@_);
print $sum / $count ;
$sum / $count ;
}

sub total{
my $sum;
foreach (@_){ $sum += $_ ;
  }
print $sum;
$sum;
}

wtuter

回复 1# 小白perl


    #!usr/bin/perl

写错了

gis11rj

回复 1# 小白perl

之前那个有点小问题，这个我检查过了，没问题，希望对你有用！我也是刚学，呵呵！见谅
    #!/usr/bin/perl

my @fred =  above_average(1..10);
print "\@fred is @fred\n";
print "(should be 6 7 8 9 10)\n";

sub above_average {
my $average = average (@_);
my @list;
foreach my $element (@_){
  if ($element > $average){
      push @list,$element;
   }
}
@list;
}


sub average {
if (@_ == 0){ return };
my $count = @_;
my $sum = total (@_);
$sum / $count ;
}

sub total{
my $sum;
foreach (@_){ $sum += $_ ;
  }
$sum;
}