in reply to OO and Threads conflict?

However, when using objects... This doesn't work: $self->{var} : shared = 1;

Consider me a threading newbie, but is there any reason you can't just share "$self". Or maybe this:

my $self = {};
my $var : shared = 1;
$self->{var} = \$var;

#(Update)Then later to get or set $var:
${$self->{var}} = 0;
...
while (${$self->{var}) {
...

[download]

Replies are listed 'Best First'.
Re: Re: OO and Threads conflict?
by Anonymous Monk on Sep 21, 2002 at 00:30 UTC
    Yes. Trying to share $self as such;
         my $self : shared = {};
    results in an error:
         Invalid value for shared scalar at...

    As for the suggested code snippet, I still end up with the thread having it's own private copy of the $self->{var}. The main thread and the 'loose thread' still do not share any data.
[reply]
[d/l]
[select]
      As for the suggested code snippet, I still end up with the thread having it's own private copy of the $self->{var}.

      I can see each process having its own copy of $self->{var}, but what about ${$self->{var}} ?? They should be referring to the same shared data, no?

[reply]
      Gee... Thanks. =)

      When referring to them as ${$self->{var}] it DOES work. The problem is now officially solved. Now, would you please explain to me what you did, because I am feeling abit lost here. =)

      And... This doesn't mean that the data is shared between all instances off the class, right?
[reply]
        This doesn't mean that the data is shared between all instances off the class, right?

        That I couldn't tell you for sure. My guess is that the data IS shared in a way across all threads, but since the reader is only looking at the one instance passed to it, that should be the only data that matters between those two threads, and another instance will generate a separate shared variable in a separate object and so the reader for that object will be looking at different data.

        BTW, $hash{key} = \$var stores a reference to the scalar in the hash, and normally to dereference a scalar reference you put a '$' in front of it, but since its in a hash you need to wrap the whole thing with curlies. E.g.

        my $var = 1;
my $ref = \$var;
my %hash = ( key => \$var );

# All print '1'
print $var;
print $$ref;
print ${$hash{key}};

        [download]
        You could probably look through perlref and perlreftut and other reference tutorials...search this site..(sorry don't have any handy).
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom