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
$

Comment identifier le socket lié à votre connexion

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

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

Perl: Lire les emails d’un serveur POP3

#!/usr/local/bin/perl
 
############## Programme de lecture d'email ##############
#   Lire les email

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;