Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Client/Serveur: Création d’un serveur pour échanger avec les connexions des clients

Your ads will be inserted here by

Easy AdSense.

Please go to the plugin admin page to paste your ad code.

serveur, list, date, socket, list, set, socket
Download

#!/usr/local/bin/perl
   ############## Socket Serveur ################
 
use Socket;
 
my $port_serveur=80;         #Port du Serveur, utilisé par le client
 
# Création d'un Socket
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
 
# Démarrer le Serveur
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1);
 
my $addr_serveur = sockaddr_in($port_serveur, INADDR_ANY);
bind(SERVER, $addr_serveur)
    or die "Port introuvable $port_serveur : $!n";
 
# Attendre la connexion du client
listen(SERVER, SOMAXCONN)
    or die "Le serveur ne peut pas écouter sur le port $port_serveur : $!n";
 
# Accepter toutes les connexion utilisant le port 80
while(1)
{
 if (accept(CLIENT, SERVER))
{
    # Envoyer des informations aux clients connectés
    print CLIENT scalar localtime, "n";      # date du Serveur
 
    close CLIENT;                             # Terminer la connexion client
 
}
}
close(SERVER);

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]

Comments are closed.