創建一個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