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

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

#!/usr/local/bin/perl
   ############## Socket Serveur ################
 
use Socket;
 
my $port_serve

Perl: créer un serveur datagramme

 #!/usr/bin/perl -w
 
  use strict;
  use IO::Socket;
 
  my ($sock,   # Socket
      $serv_msg, # mes

Méthode de communication avec le protocole TCP

 
use IO::Socket;
 
# Envoi de message
$server->send($message_a_envoyer, $flags)
    or die "Erreur:

Comment identifier le socket lié à votre connexion

#!/usr/bin/perl
 
use Socket;
 
$identite_client   = getpeername(SOCKET)
 
    or die "Impossible d'id

Perl: Trouver l’adresse DNS d’un host

#!/usr/bin/perl
 
use Socket;
 
$host = 'www.yahoo.fr';
 
# Extraction de l'adresse DNS
$adresse_dns =

Perl: Résoudre un hôte

#!/usr/bin/perl
 
use Socket;
$adresse  = gethostbyname("www.mesexemples.com")
    or die "Impossible

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

#!/bin/perl -tw
 
my $remote_host="127.0.0.1";      # L'adresse du serveur
my $remote_port=80;

Se Connecter à un serveur distant à l’aide d’un socket ‘Socket::INET’

 
#!/usr/local/bin/perl
 
use IO::Socket;
 
my $remote_host="127.0.0.1";      # L'adresse du serveur
m

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

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