Perl6多线程2: Promise new/keep/bread/status/result

来源于个人理解的翻译。

创建一个 promise:

my $p = Promise.new;

可以打印运行的Promise 状态:

my $p = Promise.new();

$p.then({say 'hello, world'});

say $p.status;

上面的promise创建好后，当 $p 状态为 kept或broken 时，会执行 then 里面的匿名函数。

但是，上面的$p状态总是为： Plannd。

所以，那个 hello, world 总是不能打印。

那怎么办呢？

Promise 有两个函数用于更改 promise状态：

. keep

. break

可以改成这样：

my $p = Promise.new();

$p.then({say 'hello, world'});

say $p.status;

$p.keep;

say 'Result ~ '~$p.result;

结果如下：

C:\p6>perl6 scan_dir.p6

Planned

hello, world

Result ~ True

C:\p6>

如果把 keep 改为 break的话，也会让匿名函数执行，同时会引发一个常常：

my $p = Promise.new();

$p.then({say 'hello, world'});

say $p.status;

$p.break;

say 'Result ~ '~$p.result;

运行结果如下：

C:\p6>perl6 scan_dir.p6

Planned

hello, world

Tried to get the result of a broken Promise

  in block <unit> at scan_dir.p6 line 

Original exception:

    False

      in block <unit> at scan_dir.p6 line 

C:\p6>

注意这里的匿名函数，当 Promise 执行 kept或 broken 方法时，会执行它，最后 promise中的result方法会返回一个值，这个返回值是传递给 keep 或 break的值或者是then返回了另一个新Promise

的result值（这个值是匿名函数的返回值）：

my $p = Promise.new();

$p.then({say 'hello, world'});

say $p.status;

$p.keep('Return for Promise');

say 'Result ~ '~$p.result;

say $p.status;

结果：

C:\p6>perl6 scan_dir.p6

Planned

Result ~ Return for Promise

hello, world

Kept

C:\p6>

my $p = Promise.new();

my $p1 = $p.then({ 'hello, world'});

say $p.status;

#$p.keep('Return for Promise');

$p.keep;

say 'Result ~ '~$p.result;

say $p.status;

say $p1.result;

结果:

C:\p6>perl6 scan_dir.p6

Planned

Result ~ True

Kept

hello, world

C:\p6>

如果不传递参数执行 $p.keep 时，匿名函数执行完后，用 $p.result 会返回一个 True, 这个true 代理原来的Promise(这里的$p)执行完毕，状态为 kept。

这个 then 方法，其实会自动创建一个新的Promise并返回这个Promise(这里的$p1), then方法中的匿名函数参数就是原来的Promise($p)，看如下代码：

my $p = Promise.new();

my $p1 = $p.then(-> $key { say $key.result});

#这里相当于创建了一个新的Promise并返回它

#key 其实就是 $p

$p.keep('This is $p');

#say $p.status;

sleep ;

say $p.status;

say $p1.status;

像一开始所说， Promise.new 创建一个 Promise 时，默认是不会自动执行的，这时当我们直接调用 $p.result 想获得结果时，程序会一直阻塞（因为我们没有 keep 或 bread 方法告诉这个 promise 让它运行）：

my $p = Promise.new();

$p.then({say 'hello, world'});

say $p.status;

say 'Result ~ '~$p.result; #这里会一直阻塞

say 'Done'; #上面被阻塞 ， 这里不会运行

那么，我们能不能一开始创建一个 promise 后，让它自动去执行呢？

可以，用 Promist.start() 方法即可。

巴特西

Perl6多线程2: Promise new/keep/bread/status/result

最新文章

热门文章