不解子程序

freeterman

#!/usr/bin/perl
sub a {
  $sum = $a + $b;
  print "\$sum is $sum\n";
}
$a = 5;
$b = 2;
$e = &a($a, $b);
print "\$e is $e\n";

结果：
$sum is 7
$e is 1

$e is 1  这个不解，哪位大侠可以解释一下吗？

shijiang1130

1. #!/usr/bin/perl
   
2. sub a {
   
3.   $sum = $a + $b;
   
4.   print "\$sum is $sum\n";
   
5.   return 0;
   
6. }
   
7. $a = 5;
   
8. $b = 2;
   
9. $e = &a($a, $b);
   
10. print "\$e is $e\n";

复制代码

现在是0了

hhs66317

1. #!/usr/bin/perl
   
2. sub a {
   
3.    $sum = $a + $b;
   
4.    return "\$sum is $sum\n";
   
5. }
   
6. $a = 5;
   
7. $b = 2;
   
8. $e = &a($a, $b);
   
9. print "\$e is $e\n";
   

复制代码

freeterman

这个已经知道了，书看的不仔细。
#!/usr/bin/perl
sub total {
  my $sum;
  foreach (@_) {
    $sum += $_;
    }
  $sum;
  }


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

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

my @fred = &above_average(1..10);
print "\@fred is @fred\n";

这个又不理解了，执行的时候报错。我认真看了代码，实在不知道哪里出错了。
[root@Master perl]# ./total.pl
Illegal division by zero at ./total.pl line 15.


帮忙看看 感谢。

yybmsrs

my $count == @_;

freeterman

大哥，谢谢了，我真想抽自己两个耳光，十分感谢。！