不解子程序

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";

復制代碼

現(xià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

這個已經(jīng)知道了，書看的不仔細。
#!/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";

這個又不理解了，執(zhí)行的時候報錯。我認真看了代碼，實在不知道哪里出錯了。
[root@Master perl]# ./total.pl
Illegal division by zero at ./total.pl line 15.


幫忙看看 感謝。

yybmsrs

my $count == @_;

freeterman

大哥，謝謝了，我真想抽自己兩個耳光，十分感謝。！