請問一個 perl 線程中 yield 函數(shù)的問題。

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";

這段代碼按我想的應(yīng)該最后結(jié)果是2，結(jié)果是0.  請問 yield 應(yīng)該如何使用呢？

操作系統(tǒng)是 FreeBSD 9.1

rubyish

可惜還沒看懂~哎

kelvenchi

唉，大神都看不明白。我也不糾結(jié)了。

rubyish

kelvenchi 發(fā)表于 2013-08-08 11:26

1. [b]這段代碼按我想的應(yīng)該最后結(jié)果是2，結(jié)果是0.[/b]

復(fù)制代碼

{:3_202:} 我的結(jié)果是1

rubyish

是2 :

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

復(fù)制代碼

kelvenchi

回復(fù) 4# rubyish

結(jié)果是 1 我寫錯了。 但是我覺得應(yīng)該是結(jié)果應(yīng)該是 2 否則 yield 就沒起到作用

   

rubyish

結(jié)果不是 2, because寫了:  if ($var == 0) {...}

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

復(fù)制代碼