If nobody responds, please supply a stripped down
version of the script that produces the problem.
Maybe get rid of
use threads;
use threads::shared;
use IO::Socket::INET;
Mike
On 12/14/20 7:00 AM, stefano cerbioni wrote:
hi guys
i have created a script because i want a listbox and inside of them i
want visualize a stream data , i understand for do that is necessary
use threads first create a stream and second manages a Tk
the problem is in Tk listbox appear only one time a data stream
why ??, if anyone have some idea is welcome thanks at all
this is a my code (perl 5 strawbaerry in windows 10 64bit )
use threads;
use threads::shared;
use Perl::Tidy;
use Tk;
use Tk::LabFrame;
use Tk::ROText;
use strict;
use IO::Socket::INET;
my$x:shared=1;
my$data :shared;
my@workerThreads;
my@otherThreads;
push@workerThreads , threads->create (\&threadSub1) for (1..10);
push@otherThreads , threads->create (\&threadSub2) ;
$_->join() for@workerThreads ;
$_->join() for@otherThreads ;
print("$x\n");
subthreadSub2 {
my$mw = MainWindow->new ;
$mw->geometry( "600x600" );
my$lbox = $mw->Listbox(-height =>500, -width =>500)->pack();
$lbox->insert('end', $data );
MainLoop;
}
subthreadSub1 {
# auto-flush on socket
$| = 1;
# creating a listening socket
my$socket = new IO::Socket::INET (
LocalHost => '127.0.0.1',
LocalPort => '23456',
Proto => 'tcp',
Listen => 5,
Reuse => 1
);
die"cannot create socket $!\n"unless$socket;
print"server waiting for client connection on port 23456 \n";
while(1)
{
# waiting for a new client connection
my$client_socket = $socket->accept();
# get information about a newly connected client
my$client_address = $client_socket->peerhost();
my$client_port = $client_socket->peerport();
print"connection from $client_address:$client_port\n";
# read up to 1024 characters from the connected client
#my $data = "";
$client_socket->recv($data, 1024);
print"received data: $data\n";
my@data_array = split(/;/,$data);
foreach (@data_array) {
return"$_\n";
print"$_\n";
}
# write response data to the connected client
$data = "ok";
$client_socket->send($data);
# notify client that response has been sent
shutdown($client_socket, 1);
}
$socket->close();
}
