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

Exemple d’utilisation d’une connexion FTP

#!/usr/bin/perl
 
use warnings;
use strict;
use Net::FTP;
 
my $ftp = Net::FTP->new("ftp.monserveurFTP

Envoyer et récevoir des fichiers d’un serveur FTP

#!/usr/bin/perl -w
 
use Net::FTP;
 
$username = "test_username";                # Nom d'utilisateur
$

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;

Télécharger un fichier à l’aide d’une connexion FTP

 
use Net::FTP;
 
$username = "test_username";                # Nom d'utilisateur
$password = "test_m