Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Créer un socket pour gérer votre connexion distante à l’aide du module ‘Socket’

serveur, socket, adresse, socket
{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 <TO_SERVER>;
 
# 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]

No comments yet.

Leave a Comment