我期望的递增为啥没发生呢？

whoaalas

1. sub make_it {
   
2.         my $i = 0;
   
3.         return sub {
   
4.                 $i++ < 10, print $i . "\n", return $i if $i == 0;
   
5.         }
   
6. }
   
7. 
   
8. $it = make_it();
   
9. 
   
10. while ($it->()) {
    
11.         print "$_\n";
    
12. }

复制代码

和副作用有关系吗？

q1208c

1. $i++ < 10, print $i . "\n", return $i if $i == 0;

复制代码

上面这行是啥意思?

yinyuemi

回复 1# whoaalas

Have a guess!

1.     sub make_it {
   
2.             my $i = 0;
   
3.             return sub {
   
4.                   #  $i++ < 10, print $i . "\n", return $i if $i == 0;
   
5.                   print $i,"\n" if $i++ < 10
   
6.             }
   
7.     }
   
8. 
   
9.     $it = make_it();
   
10. 
    
11.     while ($it->()) {
    
12.            # print "$_\n";
    
13.     }

复制代码

q1208c

回复 3# yinyuemi

这个勉强看懂了.
   

104359176

代码写成这样，出了问题都不知道真么回事。
想让函数持有数据，不如用 state

1. sub make_it {
   
2.     state i = 0;
   
3.     return i++;
   
4. }

复制代码

stanley_tam

1. 看着这么累，还是少这么写为妙。。。
   
2. $i++ < 10, print $i . "\n", return $i if $i == 0;

复制代码