{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]