请教一个多线程的问题。

eric.xie

大骆驼上有一段多线程变量践踏的例子，文档描述主线程的词法编码$var结果始终为2，但是我执行后，为什么这个$var变量在主现场打印是0，看其它的线程里面$var这个变量是改变了的。
sh-2.05b# cat 3.pl
#!/usr/bin/perl
use strict;
use warnings;
use Thread qw/async yield/;

my $var = 0;

sub abump {
        if ( $var == 0 ) {
                yield;
                $var++;
                print Thread->self->tid(), ": $var\n";
        }
}

my $t1 = new Thread \&abump;
my $t2 = new Thread \&abump;

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

print "var is $var\n";

sh-2.05b# perl 3.pl
1: 1
2: 1
var is 0

zhlong8

用 threads ， Thread 只为兼容。2002 年出的5.8 就已经淘汰旧模型了

eric.xie

回复 2# zhlong8

谢谢，修改使用treads模块后，测试还是var变量最终还是0，不知道哪里还有问题。
  sh-2.05b# cat 3.pl
#!/usr/bin/perl
use strict;
use warnings;
use threads qw/async yield/;

my $var = 0;

sub abump {
        if ( $var == 0 ) {
                yield;
                $var++;
                print threads->self->tid(), ": $var\n";
        }
}

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

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

print "var is $var\n";

sh-2.05b# perl 3.pl
1: 1
2: 1
var is 0  

jason680

回复 3# eric.xie

use threads qw/.../;
use threads::shared;

my $var :shared =0;