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

创建一个Promise 并自动运行：

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

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

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

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

我们可以改写成这样：

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

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

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

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

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

await

代码可以改写成这样：

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

await $p;

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

这时可以用:

Promise.in

这个 in 会在多少秒后返回一个新的 Promise, 并在这个秒数后向这个Promise($p)返回一个Kept, 使得这个Promise($p)去执行 then方法(这个then前面介绍过， 它遇到Kept/break就会自动执行)：

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

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

可能你想到了 await， 改写如下：

my $p = Promise.in();
$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();
$p.then( -> $p_ {sleep ;say $p.status;say 'Hello, promise.in!'});
#await $p;
await $p;

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

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

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

结果如下：

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

C:\p6>

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

. allof
. anyof