Perl : socket client/serveur

Version imprimable

Bonsoir,
J'aimerais faire du client-serveur intéractif en Perl.

et j'ai un 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
#!/usr/bin/perl
use strict;use warnings;
use IO::Socket;
my $client ;
my $serveur;
my $reponse;
 $serveur = IO::Socket::INET->new(LocalPort => 8080,
                                    Type      => SOCK_STREAM,
                                    Reuse     => 1,
                                    Listen    => 10)
or die "Impossible de ce connecter  sur le port 3083 : $@\n";
print" Demarrage du serveur...\n";
while ($client = $serveur->accept()) {
 
      $client->autoflush(1);
 
  while (defined ($line = <$client> ) ) {
  print("line vaut $line \n" );
 
  }
 
 }
 
close($serveur);
 
Et j'ai un client.pl 
#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
my ( $kidpid,  $line);
my $socket = IO::Socket::INET->new(Proto    => "tcp",
                                   PeerAddr => "$ host",
                                   PeerPort => 8080)
or die "Failed : $@\n";
print "*** Debut de connexion ***\n";
print "*** BIENVENUE sur le serveur TELLABS 7100****\n";
while(my $reponse=<$socket> ){
 
  print "server> : $reponse\n";
}
 print " Au revoir SERVEUR!!!:\n";
 
if ($kidpid) {
        # copie la socket sur la sortie standard
        while (defined ($line = <$socket> )) {
            print STDOUT $line;
 
 
        }
        kill("TERM", $kidpid);        
  # envoie SIGTERM au fils
    }
    # le bloc else{} n'est traverse que dans le fils
    else {
        # copie l'entree standard sur la socket
        while (defined ($line = <STDIN> )) {
            print $socket $line;
        }
    }
 
#close($socket);

Mon problème :
La connexion réussie, et le client reçoit et affiche les messages d'accueil du serveur.
Mais après la première ligne rentrée au clavier, çà se "bloque". Et le serveur ne recoit même pas cette ligne.
Merci d'avance pour votre aide !!

23/04/2012, 11h44
Lucdeux

si tu ne recois pas le message :

Citation:

print " Au revoir SERVEUR!!!:\n";

...c'est que le client bloque avant :

Citation:

while(my $reponse=<$socket> ){

(il lit les messages du serveur, alors que le serveur n'envoit rien du tout)
24/04/2012, 15h33
Philou67430

Lucdeux++
Je ne vois pas que le serveur envoie quoique ce soit au client...
24/04/2012, 17h35
sth56
Ce qui est bizarre dans ton client et serveur c'est que tu créer la connexion entre les deux entitées mais tu fait aucune communication entre le serveur et le client.

Si tu veux que le serveur reçoivent quelque chose du client, il faut que tu lui envoi quelque chose du style
Code:

1 2 3 print "*** BIENVENUE sur le serveur TELLABS 7100****\n"; print $socket "Nouveau client\n"; while(my $reponse=<$socket> ){
De même si tu veux que le client reçoivent quelque chose du serveur
Code:

1 2 3 $client->autoflush(1); print $client "Bienvenu sur le SERVER !\n--- Je suis PID $$ ---\n"; while (defined ($line = <$client> ) ) {
28/04/2012, 14h33
Lucdeux

Citation:

Envoyé par Philou67430

Lucdeux++
Je ne vois pas que le serveur envoie quoique ce soit au client...

je ne vois pas ou j'ai dit que le serveur envoyait quoi que ce soit... au contraire, j'ai dit :

Citation:

le serveur n'envoit rien du tout