Perl threads::shared for nested data structure

Question

# thread::shared only allws a single level of shared structure
# needs a explicit hash creation for nested data structures
my %counts     : shared = ();

foreach my $state (%known_states) {
    # COUNTS
    unless (exists $counts{build}) {
        my %cb : shared;
        $counts{build} = \%cb;
    }
    $counts{build}{$state} = 0;

}

Right now, I have to do something like the above where I have to explicitly create a hash reference for each sub-level hash.

Is there a better way of doing it?

P.S. if I don't create a hash ref then I get an "Invalid value for shared scalar" error since I am trying to use it as a hash.

ikegami · Accepted Answer · 2015-02-17 20:11:10Z

6

Autovivification makes

$counts{build}{$state} = 0;

behave like

( $counts{build} //= {} )->{$state} = 0;

For readability, let's make it two lines

$counts{build} //= {};
$counts{build}{$state} = 0;

But like you said, we need a shared hash.

$counts{build} //= &share({});
$counts{build}{$state} = 0;

You could add the following to make sure you don't accidentally vivify an unshared variable:

no autovivification qw( fetch store exists delete );

edited Feb 17, 2015 at 20:11

answered Feb 17, 2015 at 18:25

ikegami

391k17 gold badges291 silver badges555 bronze badges

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

Collectives™ on Stack Overflow

Perl threads::shared for nested data structure

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