Re: How do you share an object(Telnet Sesion) between threads?

Hi James,

I'm not sure what you already know, but any OO-style module should be of 
the form $obj=Foo::Bar->new();
$obj is a pointer that holds the class and the object as the first two 
variables and you should be able to access anything from it.

     use  Net::Telnet  ();
     $obj  =  Net::Telnet->new(Timeout=>  20);

Maybe you could take the while(1) out of the connect() sub routine and then

     return $telnetsession;

As the last line of the routine.

Here is an example of how it can work:

http://www.perlfect.com/articles/telnet.shtml

I also suggest that while(1), is a bit uncompromising, 
while(!$common{connected}) would be more controlled and using a for loop 
to try a limited number of times, even more so.

Good luck,

Regards

Steve.

On 29/09/15 18:35, James Lynes wrote:
> How do you share an object(Telnet Sesion) between threads?
>
> I need the Telnet session below available to 3 threads(connect, 
> disconnect, & scan). $telnetsession is of type Net::Telnet per 
> print(ref($telnetsession)).
>
> This is part of a larger wxPerl script. All of the display and 
> interlocking between the GUI and threads seems to working corectly.
>
> Crossposted to wxperl-users.
>
> Thanks,
> James
>
> <code>
> # Define the Thread shared data area - All threads access this scaler 
> data fine
> my  %common : shared;
>     $common{ip} = "127.0.0.1";        # Localhost
>     $common{port} = "7356";        # Local Port as defined in gqrx
>     $common{telnetsession} = 0;        # Object Pointer ??? Problem ???
>     $common{tnerror} = 0;        # Status
>     $common{connect} = 0;        # Command
>     $common{connected} = 0;        # Status
>     $common{disconnect} = 0;        # Command
>     $common{scanstart} = 0;        # Command
>     $common{scanstarted} = 0;        # Status
>     $common{beginf} = 0;        # Scan - Beginning Frequency
>     $common{endf} = 0;            # Scan - Ending Frequency
>     $common{step} = 0;            # Scan - Frequency Step
>     $common{squelch} = 0;        # Scan - Minimum RSSI(Recieved Signal 
> Strength Indicator)
>     $common{rssi} = 0;            # Scan - Latest RSSI
>     $common{pause} = 0;            # Scan - Time between scans - msec
>     $common{listen} = 0;        # Scan - Time to Listen to a strong 
> signal - msec
>     $common{mode} = 0;            # Scan - Demodulator Type
>     $common{stopthreads} = 0;        # Command
>
>
> # Connect the Telnet Session - #1
> sub Connect {
>     while(1) {
>         if($common{stopthreads}) {print "\nConnect Thread 
> Terminated\n"; return};
>         if($common{connect}) {
>             if(!$common{connected}) {
>                print "Open Telnet Connection to gqrx\n";
>                my $telnetsession = Net::Telnet->new(Timeout => 2, port 
> => $common{port},
>                                         Errmode => sub 
> {$common{tnerror} = 1;});
>                $telnetsession->open($common{ip});
>                $common{telnetsession} = 
> shared_clone($telnetsession);      # Line 92 Errors
>                $common{connected} = 1;
>                $common{connect} = 0;
>             }
>         }
>         threads->yield();
>     }
> }
> </code>
>
> <code>
> Error message:
> Thread 1 terminated abnormally: Unsupported ref type: GLOB at 
> ./threadedgqrxLite.pl line 92 thread 1
> </code>
>
>