Discussion :

[Joccy]

Bonjour,

j'ai créé un client perl sous linux qui doit envoyer/recevoir des datas d'un serveur C++ sous windows.

Bon, tout va bien pour l'envoi des datas, et je sais que le serveur répond: malheureusement, je n'affiche pas les datas !
J'ai remarqué que le serveur n'a pas de fin de chaine à la fin de ses datas. J'ai beau faire autoflush() sur ma socket, cela ne marche pas. En fait, au bout d'une dizaine d'envoi, je reçois les 10 réponses en meme temps, et ensuite plus jamais rien ....
J'ai meme essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
$old = select($sock);
$| = 1;
select($old);

mais cela ne change rien ...
Y a t il un probleme avec le module socket ? faut il prendre autre chose ?

Merci de votre aide

[Joccy]

Bon,

au lieu de faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
while (defined $Rep = <$sock>)
{
     print "Serveur> $Rep";
}

j'ecris:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
$sock->recv($Rep, 1024);
print "Serveur> $Rep\n"; # sans oublier le "\n" sinon cela ne marche pas ...

Je n'ai pas trop compris pourquoi, mais ca marche alors ...