🚀 go-pugleaf

ik heb een nieuw probleem in perl:

ik heb mijn code (zie onderaan) om te connecten met een client op een
server. Alles gaat normaal, tot in de eerste lus, aan de lijn:

        print("ready to accept");

Deze lijn verschijnt pas van zodra er een client geconnect heeft, niet
ervoor.

De lijn print("Client connected"); wordt zelfs helemaal niet weergegeven.
Ook kan ik maar met 1 client tegelijk connecten. De tweede is wel
connected, maar doet gewoon niets.

Ik gebruik telnet om dit te testen.

Nu heeft men mij verteld dat perl niet altijd alles uitvoert in de
volgorde dat het gecodeerd is, maar ik zou niet weten hoe ik dit kan
oplossen.

graag enige hulp...


Nitro





#!/usr/bin/perl

use warnings;
use strict;
use Socket;
use Thread;

socket(HANDLE, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
print("TCP socket created ...\n");
bind(HANDLE, sockaddr_in(5000, INADDR_ANY));
print("Binding socket to port 5000 ...\n");
listen(HANDLE, 10);
print("Listening for connections ...\n");

my @threads; 

# accepteert connecties en geeft die door aan Thread Tclient
while(1)
{
        print("ready to accept");
        accept(my $CLIENT, HANDLE);
        print("Connection accepted ($CLIENT).\nStarting new thread ...\n");
        push(@threads, new Thread(Tclient($CLIENT)));
}

# 1 thread per client: authenticatie, ...
sub Tclient
{
        my($conn) = @_;
        print("Client connected");
        my $in;
        while($in = <$conn>)
        {
                send($conn, "blabla", 0);
        }

}