免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3437 | 回复: 2

Mojo::IOLoop::Delay 的问题 [复制链接]

论坛徽章:
0
发表于 2014-07-23 16:27 |显示全部楼层
  1. #!/usr/bin/perl

  2. use strict;
  3. use warnings;
  4. use Data::Dumper;

  5. use Mojo::IOLoop::Delay;

  6. my $delay = Mojo::IOLoop::Delay->new;

  7. $delay->on(finish => sub {
  8.     my($delay, $arg) = @_;
  9.     print "finish: $arg\n";
  10. });

  11. my @steps;
  12. for my $id (1..5) {
  13.     push @steps, sub {
  14.         # get result from last sub
  15.         my ($delay, $arg) = @_;
  16.         print "id: $id\n";

  17.         if ($arg and $arg > 2) {
  18.             return;
  19.         } else {
  20.             my $end   = $delay->begin;
  21.             Mojo::IOLoop->timer(1 => sub {
  22.                 $end->(undef, $id)
  23.             });
  24.         }   
  25.     };  
  26. }

  27. $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就结束?

论坛徽章:
0
发表于 2014-08-02 06:13 |显示全部楼层
因为当ID是4的时候得到的arg才是3

论坛徽章:
0
发表于 2014-08-07 17:11 |显示全部楼层
回复 2# kk861123


    现在看看是这个流程是没问题了,看来是当时写得头有点晕 。谢谢了!
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP