Discussion :

[vodevil]

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

[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ï

[vodevil]

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


le serveur

Code :

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

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 :

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

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 !!

[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ï

[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

[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.)

[vodevil]

Merci Pospos Net::Server::Multiplex correcpond a ce que je veut faire je vais donc tester sa je vous tient au jus

[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