multithreading - 如何将共享数据传递给Perl中的线程？

Question

use threads;
use threads::shared;

sub test {
    my $s :shared = 22;
    my $thread = threads->new(\&thrsub);

    $thread->join();
    print $s;

}

sub thrsub {
    $s = 33;
}

test;

为什么不在线程中共享数据？

Answer 1

它共享变量，但是您正在访问的变量与共享的变量不同。 (在这种情况下，use strict;会告诉您有不同的变量。请始终使用use strict; use warnings;)解决方法是使用单个变量。

my $s :shared = 22;

sub test {
    my $thread = threads->new(\&thrsub);
    $thread->join();
    print $s;
}

sub thrsub {
    $s = 33;
}

test;