Chat perl probleme

Bonjours j'utilise la librairie IO::Socket::INET je voudrais faire un server qui accepte la connection et ou je puisse chatter j'ai donc écrit :

Code:

---

1 2 3 4 5 6 7 8

while(1) {   $sock->recv(my $rep,128); if(my $rep ne ''){ print $sock->peerhost, "Msg:", $rep,"\n"; }   }

---

Je ne sais même pas si se bout de code est bon je voudrais aussi pouvoir renvoyé un message mais je ne sais pas comment faire.

La lecture (et meme l'ecriture si le buffer est plein) sur un socket est une operation bloquante: si tu lit sur un socket l'operation va attendre d'avoir effectivmeent quelque chose à lire avant de te rendre la main. Donc si rien n'arrive ton prog est bloqué.
Donc si tu veux lire et ecrire sur un socket il faut soit que tu sache exactement quand tu dois lire et ecrire et que bloquer ton programme en attendant que cela soit possible ne te derrange pas, soit que tu utilise une methode pour savoir si il y a effectivement qqchose à lire/ecire sur le socket. Regarde IO-Select (ou la commande select tout court) pour ce genre de chose.