Using shared hash in Perl

Question

Why I get this error?

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;

stevieb · Accepted Answer · 2015-06-01 23:20:33Z

5

Use shared_clone() when using a variable (anonymous hash in this case) in an assignment.:

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;

Output:

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

edited Jun 1, 2015 at 23:20

answered Jun 1, 2015 at 23:07

stevieb

9,3263 gold badges28 silver badges39 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Using shared hash in Perl

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related