defined用的不对吗？

budong0000

刚学， 看书做的实例：

1. 
   
2. sub total{
   
3.          if(defined(@_)){
   
4.                  $total+=shift @_;
   
5.         }
   
6. }
   
7. 
   
8. my @fred=qw(1 3 5 7 9);
   
9. my $fred_total=&total(@fred);
   
10. print "The total of \@fred is $fred_total.\n"
    

复制代码

The total of @fred is 1.

不明白了，结果总是1，为什么不是25， 另Perl怎么调试的，请各位大大帮忙了

yashiro_lj

2个问题：
1、应该用while，而不是if
2、total函数没有正确的返回值

兰花仙子

看书来的？肯定看错了。
修改一下：

1. use strict;
   
2. 
   
3. 
   
4. sub total{
   
5.         my $total =0;
   
6.          while (defined(@_)){
   
7.                  $total+=shift @_;
   
8.         }
   
9.         return $total;
   
10. }
    
11. 
    
12. my @fred=qw(1 3 5 7 9);
    
13. my $fred_total=&total(@fred);
    
14. print "The total of \@fred is $fred_total.\n"

复制代码

# perl t13.pl
The total of @fred is 25.

budong0000

谢谢楼上两位，这是书里面的一个题目。
偶05年毕业，瞎了眼做的NET开发，现在重新学习Linux的东西了。
if后面不也是个bool么？和while有差别？偶要查查了。呵呵
偶写成这个了：

1. 
   
2. sub total{
   
3.          foreach(@_){
   
4.                  $total+=$_;
   
5.          }
   
6.          $total;
   
7. }
   
8. 
   
9. my @fred=qw(1 3 5 7 9);
   
10. my $fred_total=&total(@fred);
    
11. print "The total of \@fred is $fred_total.\n";
    
12. 
    

复制代码

Perl_Er

if不会循环

HongLian3