perl 多线程共享数据

perl 要修改传入参数，就像c一样，要传入引用

 #!/usr/bin/perl -w

 my $var = 1212;

 sub test
 {
     my ($ref) = @_;
     $$ref = 12;
 }

 test(\$var);

 print($var);

— OUTPUT ———

12

但是在thread里面，如果直接传入引用，则无效

 #!/usr/bin/perl -w

 use Thread;


 my $var = 1212;

 sub test
 {
     my ($ref) = @_;
     $$ref = 12;
 }

 $id = Thread->new(\&test, \$var);
 sleep(1);
 print($var);
 $id->join();

— OUTPUT ———

1212

需要引入多线程变量共享，将var设置成全局的，这样就可以，当然多个线程就需要考虑竞争神马的，可以继续参考lock之类的文章

#!/usr/bin/perl -w


use Thread;
use threads::shared;


my $var : shared = 1212;

sub test
{
    $var = 12;
}


$id = Thread->new(\&test);
sleep(1);

print($var);

$id->join();

— OUTPUT ———

12