第一个perl程序，哪里出错？

鸡鸡哥

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. my(@fred,$fred_total);
   
4. 
   
5. sub total
   
6. {
   
7. my $sum1 = 0;
   
8.   foreach $_ (@_) {
   
9.     $sum1 = $sum1 + $_;
   
10. }
    
11. 
    
12. }
    
13. @fred = qw{ 1 3 5 7 9 };
    
14. $fred_total = &total(@fred);
    
15. print "The total of \@fred is $fred_total.\n";
    
16. print "Enter some numbers on separate lines: ";
    
17. my $user_total = &total(<STDIN>);
    
18. print "The total of those numbers is $user_total.\n";

复制代码

帮我看看，哪里有问题，初学，第一个程序，谢谢。

鸡鸡哥

程序没有问题，问题出在子程序total没有返回值，我再foreach后面加了个return $sum1就可以了

lqianc

子程序返回执行的最后一条语句， 不加return你的total返回$sum1 = $sum1 + $_;

鸡鸡哥

thanks