How do you share an object(Telnet Session) between threads?
Update: I have a working version of this app using one Telnet Session thread along with the Wx GUI code. I will post this version to the Cool Uses for Perl section.
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
# 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 si
+gnal - 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{tnerro
+r} = 1;});
$telnetsession->open($common{ip});
$common{telnetsession} = shared_clone($telnetsession);
+ # Line 92 Errors
$common{connected} = 1;
$common{connect} = 0;
}
}
threads->yield();
}
}
Error message:
Thread 1 terminated abnormally: Unsupported ref type: GLOB at ./thread
+edgqrxLite.pl line 92 thread 1
James
There's never enough time to do it right, but always enough time to do it over...