Bonjour,
j'ai un problème avec le code suivant:
ou la methode perform est défini par:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 while (my $client = $server->accept()) { threads->new(perform , $client); }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?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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; }
Merci de votre aide!!!
Partager