Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Perl: créer un client datagramme pour échanger avec le client

Your ads will be inserted here by

Easy AdSense.

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

serveur, date, socket, adresse, socket
Download

#!/bin/perl -tw
 
my $remote_host="127.0.0.1";      # L'adresse du serveur
my $remote_port=80;               # Le port du Serveur
my $protocole="udp";              # Le protocole utilisé
 
use Socket qw(AF_INET SOCK_DGRAM inet_aton sockaddr_in);
 
# Définir le protocole
$proto = getprotobyname($protocole);
 
# Création d'un socket générique
socket(SOCK, AF_INET, SOCK_DGRAM, $proto) or die "socket: $!";
 
$ipaddr   = inet_aton($remote_host);
$portaddr = sockaddr_in($remote_port, $ipaddr);
 
# Envoyer un message au serveur
my $message="Allô Serveur";
send(SOCK,$message, 0, $portaddr) or die "Erreur d'envoi de msg: $!";
 
$SIG{ALRM} = sub { die "Timeout:$!" };
 
eval
{
 # Lire le message envoyé par le serveur
recv(SOCK, $date, 1024, 0) or die "Impossible de lire le message du serveur: $!n";
print $date,"n";
 
} or warn $@;
close(SOCK);

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.

Sex Cams Movable Theme