Aide pour modification de script

Version imprimable

Hello ! Pour les besoins d'un script je doit utiliser un serveur / client socket , j'ai trouver sur le net ces scripts

http://www.ac-creteil.fr/util/progra...tp-reseau.html

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);
 
 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 $ligne;
  }
 }
}

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
#!/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";
    }
}

Je voudrais modifier leur fonctionnement pour que le client envoie un scalaire $data au serveur que celui si effectue certaines opérations dessus et renvoie le résultat au client.

pour envoyer $data au serveur j'ai fait sa dans le client

Code:

while ( $ligne = $data ) {

ou $date = "lundi";

je n'arrive pas a récupérer la varialble dans le serveur , effectuer des opérations et renvoyer le résultat au client.

01/10/2005, 13h38
strach
Citation:

pour envoyer $data au serveur j'ai fait sa dans le client

Code:
while ( $ligne = $data ) {
ou $date = "lundi";

je n'arrive pas a récupérer la varialble dans le serveur , effectuer des opérations et renvoyer le résultat au client.

Tu supprimes les lignes suivantes dans le client :
Code:

1 2 3 while ($ligne = <> ) { print $socket $ligne; }
et tu mets à la place

Code:

print $socket $data;

Normalement ton serveur devrait récupérer la valeur de $data (attention il ne récupère pas la variable, mais sa valeur :)

Rv
04/10/2005, 14h58
scaleo
Strach , je suis ok pour ce qui est de faire
Code:

1 2 3 while ($ligne = <> ) { print $socket $ligne; }
Par contre je ne voie vraiment pas ou le serveur récupère la donnée , moi j'ai testé en faisant des print j'avoue ne pas savoir ou est passé la donné :roll:

Citation:
Envoyé par scaleo
Strach , je suis ok pour ce qui est de faire
Code:

1 2 3 while ($ligne = <> ) { print $socket $ligne; }
Attention ce n'est pas ce que j'ai dit, si tu fais ça, $ligne contient ce qui est dans STDIN (l'opérateur diamant, <>, travaille par défaut sur STDIN), donc tu envois au serveur via la handle $socket, ce que tu rentres au clavier sur le client. Pour envoyer le contenu d'une variable $data, il faut faire

Code:

print $socket $data;

Citation:

Par contre je ne voie vraiment pas ou le serveur récupère la donnée , moi j'ai testé en faisant des print j'avoue ne pas savoir ou est passé la donné :roll:

Ici :
Code:

1 2 3 4 5 6 # c'est le processus enfant, chargé de l'écoute des clients ############################################################# while ($ligne = <$client> ) { print "client> $ligne"; }
Dans $ligne sur le serveur, tu récupère le contenu de $data.
Il y a par contre deux autres soucis :
- Il faut mettre tes handles en mode sans buffer, sinon pour optimiser les transfères (entre fichiers ou par réseaux) il "bufferise" et n'envoit pas ce que tu attends au bon moment !!!
- Le while va tourner indéfiniment car il attend pour se finir que $ligne reçoive un "undef", ce que ta variable $data n'enverra pas.