{filelink=13107}

#!/usr/local/bin/perl
  ############## Socket Client ################

use Socket;                       # intégration du module Socket

my $remote_host="127.0.0.1";      # L'adresse du serveur
my $remote_port=80;               # Le port du Serveur
my $protocole="tcp";              # Le protocole utilisé

# Création du Socket
socket(TO_SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

# Définir l'adresse de la machine distante
$addr_internet = inet_aton($remote_host)
    or die "Adresse $remote_host introuvable: $!n";

    # Définir le port de connexion sous l'adresse
$paddr = sockaddr_in($remote_port, $addr_internet);

# Démarrer la connexion
connect(TO_SERVER, $paddr)
    or die "Echec de connexion avec les paramètres suivant:
    			$remote_host:$remote_port : $!n";
print "Attente de données Serveur....";
# Lire les informations envoyées par le Serveur
print ;

# Fermeture de la connexion
close(TO_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]