Socket connexion permanente

Version imprimable

10/07/2006, 12h22
vodevil

Socket connexion permanente

Je n'arrive pas à connecter deux scripts via un socket et à les faire communiquer via celui-ci. J’entends par la que mon client A ce connecte a mon serveur B le serveur B envoie des données que A reçois bien, mais je n'arrive pas à envoyer de nouvelles donnée via le socket sans la régénérer c'est à dire sans relancer le client.

Existe-t-il un moyen de connecter A et B sans avoir besoin d'ouvrir à chaque fois le socket ?

merci 8-)
10/07/2006, 12h29
Jedai

Montre nous donc ton code, qu'on te dise ce que tu fais mal (parce que ce que tu demandes est évidemment possible vu que tous les serveurs TCP fonctionnent comme ça...).

--
Jedaï

Voila " mon code ", que j'ai pris sur un site
ICI

le serveur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl -w
# serveur.pl  #
###############
use IO::Socket;
 
$server = IO::Socket::INET->new(
    LocalPort => 1234,
    Type      => SOCK_STREAM,
    Reuse     => 1,
    Listen    => 5
) or die "Création du serveur impossible.\n";
print "Démarrage du serveur ..\n";
 
while ($client = $server->accept()) {
 print $client "Le serveur dit 'bonjour' au client !\n";
 
 $pid = fork;
 die "Je ne peux pas forker !" if ! defined ($pid);
 my $ligne;
 if ($pid ==0) {
 # c'est le processus enfant, chargé de l'écoute des clients
 #############################################################
   while ($ligne = <$client> ) {
     print "client> $ligne";
 
   }
  } else {
  # c'est le père qui pendant ce temps répond au client #
  #######################################################
   while ($ligne = <>) {
     print $client "maison";
  }
 }
}

le client :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl -w
# client.pl  #
##############
use IO::Socket;
 
print "nom ou adresse IP du serveur (localhost par défaut) ";
$adresse = <>; chomp($adresse);
$adresse= "localhost" if $adresse eq "";
 
$socket = IO::Socket::INET->new(
        PeerAddr => $adresse,
        Proto => "tcp",
        PeerPort => 1234
        )
or die "Connexion au serveur impossible.\n";
 
$pid = fork;
die "Je ne peux pas forker !" if ! defined ($pid);
if ($pid ==0) {
 # c'est le processus enfant, chargé de l'émission au serveur
 #############################################################
#    while ($ligne = <> ) {
  #   print $socket $ligne;
 #   }
#} else {
  # c'est le père qui pendant ce temps écoute le serveur
  #######################################################
    while ($ligne = <$socket>) {
     print "serveur> $ligne";
    }
}

Le but de ce code est d'essaie est d'envoyer au client le message maison en permanence, j'ai mis en commentaire la partie cliente qui répond au serveur car dans mon script ce ne sera pas le cas !!

10/07/2006, 15h13
Jedai

Problème de buffer probablement... "maison" ne comprend pas de "\n" donc est bufferisée, rajoute un \n (ou flush ton $client, il y a une chance que ça marche).

--
Jedaï
11/07/2006, 10h19
vodevil

J'ai fait quelque essaie en désactivant la bufferisation avec $| = 1; j'ai ensuite flushé $client et mis \n mais rien n'y fait sa ne marche pas :roll:
11/07/2006, 11h12
pospos

par defaut les handler de socket sont deja en autoflush (depuis perl 5.6 au moins).
Tu es sous windows?
Si c'est el cas ton probleme est peut etre du à l'emulation de fork que perl est obligé de faire sur cette plateforme.
Esque ca marche avec un serveur plus simple, sans fork?
Au fond d'ailleurs pourkoi n'utilise tu pas les solutions qui marchent sur cpan? (POE, Net::Server, etc.)
11/07/2006, 14h34
vodevil

Merci Pospos Net::Server::Multiplex correcpond a ce que je veut faire je vais donc tester sa je vous tient au jus :P
12/07/2006, 22h10
vodevil

Désolé de vous déranger une fois de plus j'ai après avoir lu plusieurs fois la doc de Net::Server et Net::Server::Multiplex je n'arrive pas a comprendre comment m'en servir :oops: