关于子例程返回值的疑问

telecomshy

最近在看Perl最佳实践，里面第九章有个例子关于Perl子例程返回值的。

1. sub find_second_odd {
   
2.        my $prev_odd_found = 0;
   
3.       #检查自变量
   
4.        for my $num(@_) {
   
5.             #找出奇数
   
6.              if (odd($num)){
   
7.                   #如果不是第一个就返回，必定是第二个
   
8.                   return $num if $prev_odd_found;
   
9.                   #否则，记住找到一个
   
10.                   $prev_odd_found=1;
    
11.              }
    
12.          }
    
13.       #否则，失败
    
14. }
    
15. 
    
16. if(defined find_second_odd(2..1)){
    
17.       #find_second_odd()返回undef
    
18.      #所以if块按预期跳过
    
19. }
    
20. if(defined find_second_odd(2..6)){
    
21.       #find_second_odd()返回5
    
22.      #所以if块按预期跳过
    
23. }
    
24. 
    
25. if(defined find_second_odd(2..4)){
    
26.       #find_second_odd()返回空字符串,
    
27.      #所以if块意外执行
    
28. }

复制代码

书上的解释是perl编译器偷偷的把每个for循环转换成while隐式循环，因此最后返回的是while循环的条件测试（失败），这里一直没明白，到底是什么条件测试，为什么会返回空字串呢？

pengphy

回复 1# telecomshy


    function返回的是最后一条执行语句的返回值，

    如果for 循环没有找到第二个odd的话， 跳出for， 到了find_second_odd }函数定义结尾处  就会返回undef

telecomshy

问题是第三个if

1. if(defined find_second_odd(2..4)){
   
2.       #find_second_odd()返回空字符串,
   
3.      #所以if块意外执行
   
4. }

复制代码

按道理说会返回undef不会执行，偏偏就执行了。

zhlong8

谁说以 for 结束会返回 undef 的，怎么讲也是未定义。perlsub

If no return is found and if the last statement is an expression, its value is returned. If the last statement is a loop control structure like a foreach or a while , the returned value is unspecified. The empty sub returns the empty list.