Mojo::IOLoop::Delay 的问题

hotsnow

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. 
   
7. use Mojo::IOLoop::Delay;
   
8. 
   
9. my $delay = Mojo::IOLoop::Delay->new;
   
10. 
    
11. $delay->on(finish => sub {
    
12.     my($delay, $arg) = @_;
    
13.     print "finish: $arg\n";
    
14. });
    
15. 
    
16. my @steps;
    
17. for my $id (1..5) {
    
18.     push @steps, sub {
    
19.         # get result from last sub
    
20.         my ($delay, $arg) = @_;
    
21.         print "id: $id\n";
    
22. 
    
23.         if ($arg and $arg > 2) {
    
24.             return;
    
25.         } else {
    
26.             my $end   = $delay->begin;
    
27.             Mojo::IOLoop->timer(1 => sub {
    
28.                 $end->(undef, $id)
    
29.             });
    
30.         }   
    
31.     };  
    
32. }
    
33. 
    
34. $delay->steps(@steps)->wait;

复制代码

输出结果如下：

1. $ perl test.pl
   
2. id: 1
   
3. id: 2
   
4. id: 3
   
5. id: 4
   
6. finish: 3

复制代码

写个简单的测试，我想要的如下：
1. 顺序执行5个操作，每步操作把结果(id)，传给下一个sub
2. 每步step判断上一步的结果，如果结果大于2时就跳过后面的sub，
3. finish捕获最后返回的结果

问题：
1. 为什么finish获取到的是3 而不是2 ？
2. 为什么上面的调试print会print到4 ？而不是3就结束？

kk861123

因为当ID是4的时候得到的arg才是3

hotsnow

回复 2# kk861123


    现在看看是这个流程是没问题了，看来是当时写得头有点晕 。谢谢了！