création d'un thread a la reception d'un message sur une socket
Bonjour,
j'ai un problème avec le code suivant:
Code:
1 2 3
| while (my $client = $server->accept()) {
threads->new(perform , $client);
} |
ou la methode perform est défini par:
Code:
1 2 3 4 5 6 7 8 9 10
| sub perform{
my $client = @_;
print $client "Le serveur dit 'bonjour' au client !\n";
while (my $ligne = <$client> ) {
print "client> $ligne";
}
print "Fin\n";
close($client);
exit;
} |
je n'arrive pas a écrire sur la socket depuis la methode perform. Si je supprime la ligne, la connexion est bien établie mais se ferme immediatement... c'est a dire que le while n'est pas traverser. Est ce que le passage de la socket est correct ??? sinon, comment créer le thread en lui passant la socket?
Merci de votre aide!!!