Perl: créer un serveur datagramme

 #!/usr/bin/perl -w
 
  use strict;
  use IO::Socket;
 
  my ($sock,   # Socket
      $serv_msg, # mes

serveur, socket, socket
{filelink=13109}

 #!/usr/bin/perl -w
 
  use strict;
  use IO::Socket;
 
  my ($sock,   # Socket
      $serv_msg, # message Serveur
      $clt_msg, # message client
      $clt_host,# host client
      $MAXLEN, # Caractères
      $PORTNO  # Port Serveur
      );
  $MAXLEN = 1024;
  $PORTNO = 80;
 
  $sock = IO::Socket::INET->new(LocalPort => $PORTNO, Proto => 'udp')
      or die "Erreur Socketet: $@";
 
  print "Serveur lancé, Attente de message client....n";
 
  $serv_msg = "Salut, Bienvenu sur le Serveur Perl.n";
  while ($sock->recv($clt_msg, $MAXLEN))
   {
      my($port, $ipaddr) = sockaddr_in($sock->peername);
      $clt_host = gethostbyaddr($ipaddr, AF_INET);
      print "Client $clt_host dit ``$clt_msg''n";
 
      #Envoyer un message au Client
      $sock->send($serv_msg);
      $serv_msg = "[$clt_host] $clt_msg";
  }
  die "Erreur de lecture message serveur: $!";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Be the first to leave a comment. Don’t be shy.

Join the Discussion

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>