请问一个 perl 线程中 yield 函数的问题。

kelvenchi

#! /usr/bin/perl
use strict;
use warnings;
use threads qw(yield);
use threads::shared;

my $var:shared = 0;
sub abump {
    if ($var == 0) {
        yield();
        $var++;
    }
}

my $t1 = threads->create(\&abump);
my $t2 = threads->create(\&abump);

for my $t ($t1, $t2) { $t->join() }

print "val is $var\n";

这段代码按我想的应该最后结果是2，结果是0.  请问 yield 应该如何使用呢？

操作系统是 FreeBSD 9.1

rubyish

可惜还没看懂~哎

kelvenchi

唉，大神都看不明白。我也不糾結了。

rubyish

kelvenchi 发表于 2013-08-08 11:26

1. [b]这段代码按我想的应该最后结果是2，结果是0.[/b]

复制代码

{:3_202:} 我的结果是1

rubyish

是2 :

1. sub abump {
   
2.     yield();
   
3.     $var++;
   
4. }

复制代码

kelvenchi

回复 4# rubyish

结果是 1 我写错了。 但是我觉得应该是结果应该是 2 否则 yield 就没起到作用

   

rubyish

结果不是 2, because写了:  if ($var == 0) {...}

1. sub abump {
   
2.     if ($var == 0) {
   
3.         yield();
   
4.         $var++;
   
5.     }
   
6. }

复制代码