Perl6多线程3: Promise start / in / await

Posted FireC@t @ Perl6

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Perl6多线程3: Promise start / in / await相关的知识,希望对你有一定的参考价值。

创建一个Promise 并自动运行:

my $p = Promise.start({say Hello, Promise!});

如果把代码改成如下, 我们会发现什么也没打印:

my $p = Promise.start({sleep 2;say Hello, Promise!});

匿名函数 sleep 2 秒, 这时, 它还没运行完, 主程序就退出了, 这里 promise也跟着退出, 所以什么也没打印。

我们可以改写成这样:

my $p = Promise.start({sleep 2;say Hello, Promise!});
sleep 3;

是不是觉得有点不太好?因为你有时并不知道程序什么时候运行完成。

记得上面说过 return 方法, 会阻塞直到 Promise完成, 可以改成这样:

my $p = Promise.start({sleep 2;say Hello, Promise!});
$p.result;

其实还有一个方式, 那就是:

await

代码可以改写成这样:

my $p = Promise.start({sleep 3;say Hello, P});
my $p1 = Promise.start({say Hello, P1});

await $p;

 

如果我们创建好一个 promise 后, 不想让它马上运行, 而是要让他过多少秒后再运行, 有没有办法呢?

这时可以用:

Promise.in

这个 in 会返回一个新的 Promise, 并在多少秒后执行 用这个Promise($p)去执行 then方法(这个then前面介绍过):

my $p = Promise.in(3);
$p.then( -> $p_ {say $p.status;say Hello, promise.in!});

上面代码并不能打印, 因为主程序已退出。

可能你想到了 await, 改写如下:

my $p = Promise.in(3);
$p.then( -> $p_ {say $p.status;say Hello, promise.in!});
#await $p;
await $p;

可以正常打印, 但有问题, 问题就是:

这个 Promise.in会在多少秒后, 返回一个 Promise($p), 之后在自身调用 kept方法, $p看到 keep方法了, 会去调用 then, 流程就是这样。

我们最后在等待的是: $p。

但你想想, 这个 await 会等到 kept时就会退出, 在它退出时那个 $p.then才刚运行。 这就是问题所在。

下面是验证代码:

my $p = Promise.in(3);
$p.then( -> $p_ {sleep 3;say $p.status;say Hello, promise.in!});
#await $p;
await $p;

我虽然 await 了, 但没能打印。因为主程序已退出了。

上一篇已说过, $p.then 方法会返回一个新的 Promise, 我们可以在这个新的 Promise 身上调用 await 方法即可, 如下:

my $p = Promise.in(3);
my $p1 = $p.then( -> $p_ {sleep 3;say $p.status;say Hello, promise.in!});
#await $p;
await $p1;

结果如下:

C:\p6>perl6 scan_dir.p6
Kept
Hello, promise.in!

C:\p6>

 

我们还可以让很多代码块一起执行, 当所有代码块执行完成后才退出, 或者其中一个代码块执行完成后就立即退出:

1. allof
2. anyof

 

以上是关于Perl6多线程3: Promise start / in / await的主要内容,如果未能解决你的问题,请参考以下文章

Perl6多线程1: new / run

多线程中的超时, 如Socket超时

perl6 单线程破解phpmyadmin脚本

多线程start()与run()的区别

Java多线程设计模式之Promise 模式

perl6“首先等待的操作”