multithreading - 在Perl中使用共享哈希

Question

为什么会出现此错误？

Thread 1 terminated abnormally: Invalid value for shared scalar at thr_hash.pl line 8.

use threads;
use threads::shared;
use Data::Dumper;

my %h:shared;

threads->create(sub{
    $h{manager} = {
        name => 'John',
        surname => 'Doe',
        age => 27
    };
})->detach;

sleep 1;

print Dumper \%h;

Answer 1

在分配中使用变量(在这种情况下为匿名哈希)时，请使用shared_clone():

use threads;
use threads::shared;
use Data::Dumper;

my %h:shared;

threads->create(sub{
    $h{manager} = shared_clone({
        name => 'John',
        surname => 'Doe',
        age => 27
    });
})->detach;

sleep 1;

print Dumper \%h;

输出:

$VAR1 = {
          'manager' => {
                         'surname' => 'Doe',
                         'name' => 'John',
                         'age' => 27
                       } 
        };