子程序返回值输出不能,内附代码

godsad

#!/usr/bin/perl use warnings; sub total{      my $x;      foreach $x(@_){                $_ += $_;              }           } @fred = qw /1 3 5 7 9/; $fredTotal = &total(@fred); print "The total of \@fred is ".$fredTotal."\n";

churchmice

$_ += $_;
这种写法%100是悲剧

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub total {
   
6.     my $x;
   
7.     foreach (@_) {
   
8.         $x += $_;
   
9.     }
   
10.     return $x; #$x is ok
    
11. }
    
12. 
    
13. my @fred      = qw /1 3 5 7 9/;
    
14. my $fredTotal = &total(@fred);
    
15. print "The total of \@fred is " . $fredTotal . "\n";
    

复制代码

功力不行就老老实实用return
你原先的代码也是有返回结果的，只不过返回的是0
为啥是0？这个是由foreach返回的，就是最后的条件判断为假，循环结束

[ 本帖最后由 churchmice 于 2009-7-19 16:06 编辑 ]

godsad

谢谢ls,刚学perl用的perl语言入门这本书,被里面的简写语法弄昏了头

看perl语言入门这本书入门根本不能开use strict,否则基本不能通过debug

MMMIX

原帖由 godsad 于 2009-7-19 16:28 发表
谢谢ls,刚学perl用的perl语言入门这本书,被里面的简写语法弄昏了头

看perl语言入门这本书入门根本不能开use strict,否则基本不能通过debug

那这说明开着 warnings 和 strict 把它的代码调通，你可以学到不少东西，从而在以后避免许多错误。要知道，错误发现的越早，改正的成本也越低。

godsad

原帖由 MMMIX 于 2009-7-19 16:56 发表

那这说明开着 warnings 和 strict 把它的代码调通，你可以学到不少东西，从而在以后避免许多错误。要知道，错误发现的越早，改正的成本也越低。

收到