print to socket causes unexpected exit [please help]

[zbrozlo]

Hi, I have strange problem with my perl program. My program consists of two parts, first written in python and second in perl. Perl part is a server, but also uses two sockets for "talking" with gui written in python. Problem is, that from totally unknown reason perl program quits at line, where i'm trying to 'print' anything for AWAY gui socket. Here's part of my code :

#!/usr/bin/perl 
use strict; 
use warnings; 
use IO::Socket; 
use threads; 
use Thread::Queue; 
use File::stat; 
 
my $port = $ARGV[0] || 2347; 
my $awayport = $ARGV[1] || 2346; 
my %clients; 
my $queue = Thread::Queue -> new; 
 
#no zombies 
$SIG{CHLD} = 'IGNORE'; 
 
#create the LISTEN socket 
my $listen_socket = IO::Socket::INET->new(LocalPort => $port, 
                                          Listen => 10, 
                                          Proto => 'tcp', 
                 LocalAddr => 'localhost', 
                                          ReuseAddr => 1); 
 
 
print " * Waiting for lock..\n"; 
while(!open(Lockfile,"<.lock.")){} 
close(Lockfile); 
 
# 
# now crate socket for GUI communication, so I can write to gui, for example status, or anything else 
# 
my $guiListenSock = IO::Socket::INET->new(LocalAddr => "127.0.0.1", 
                             LocalPort => 2346, 
                             Proto    => "tcp", 
                             Type     => SOCK_STREAM) 
    or die "Couldn't Crt sock : $@\n"; 
 
open(LCKF,">.lock.lock.") or die("Can't create .lock.lock."); 
close(LCKF); 
 
my $awayConn; 
my $passwd; 
my $login; 
 
warn "Server ready. Waiting for connections on $port ... \n"; 
 
while (my $connection = $listen_socket->accept) { 
   my $child = threads->create ("myFunc", $queue, $connection, $guiListenSock, $awayConn)->detach; 
} 
 
sub myFunc { 
   my ($queue, $socket, $myoutSock, $awaySock) = @_; 
   select($socket);$|=1; # force flushing 
   select($myoutSock);$|=1; 
   select(STDOUT);$|=1; 
   print $myoutSock "DFJDLJLDKFJLDKFJLKDF\n"; # HERE IS A MOMENT WHEN PROGRAM SUDDENLY CRASHES WITHOUT ANY MESSAGE 
        ... 
        .... 
        ... 
}

[numberwhun]

Hi, I have strange problem with my perl program. My program consists of two parts, first written in python and second in perl. Perl part is a server, but also uses two sockets for "talking" with gui written in python. Problem is, that from totally unknown reason perl program quits at line, where i'm trying to 'print' anything for AWAY gui socket. Here's part of my code :

#!/usr/bin/perl 
use strict; 
use warnings; 
use IO::Socket; 
use threads; 
use Thread::Queue; 
use File::stat; 
 
my $port = $ARGV[0] || 2347; 
my $awayport = $ARGV[1] || 2346; 
my %clients; 
my $queue = Thread::Queue -> new; 
 
#no zombies 
$SIG{CHLD} = 'IGNORE'; 
 
#create the LISTEN socket 
my $listen_socket = IO::Socket::INET->new(LocalPort => $port, 
                                          Listen => 10, 
                                          Proto => 'tcp', 
                 LocalAddr => 'localhost', 
                                          ReuseAddr => 1); 
 
 
print " * Waiting for lock..\n"; 
while(!open(Lockfile,"<.lock.")){} 
close(Lockfile); 
 
# 
# now crate socket for GUI communication, so I can write to gui, for example status, or anything else 
# 
my $guiListenSock = IO::Socket::INET->new(LocalAddr => "127.0.0.1", 
                             LocalPort => 2346, 
                             Proto    => "tcp", 
                             Type     => SOCK_STREAM) 
    or die "Couldn't Crt sock : $@\n"; 
 
open(LCKF,">.lock.lock.") or die("Can't create .lock.lock."); 
close(LCKF); 
 
my $awayConn; 
my $passwd; 
my $login; 
 
warn "Server ready. Waiting for connections on $port ... \n"; 
 
while (my $connection = $listen_socket->accept) { 
   my $child = threads->create ("myFunc", $queue, $connection, $guiListenSock, $awayConn)->detach; 
} 
 
sub myFunc { 
   my ($queue, $socket, $myoutSock, $awaySock) = @_; 
   select($socket);$|=1; # force flushing 
   select($myoutSock);$|=1; 
   select(STDOUT);$|=1; 
   print $myoutSock "DFJDLJLDKFJLDKFJLKDF\n"; # HERE IS A MOMENT WHEN PROGRAM SUDDENLY CRASHES WITHOUT ANY MESSAGE 
        ... 
        .... 
        ... 
}

I am not sure as I haven't done anything with sockets and such, but hopefully one of our experts will be able to guide you in the right direction.

Regards,

Jeff