Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

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

Your ads will be inserted here byEasy AdSense.Please go to the plugin admin page to paste your ad code. Download #!/usr/local/bin/perl ############## Socket Serveur ################   use Socket;   my $port_serveur=80; ...
Comments Off

Perl: créer un serveur datagramme

Your ads will be inserted here byEasy AdSense.Please go to the plugin admin page to paste your ad code. Download #!/usr/bin/perl -w   use strict; use IO::Socket;   my ($sock, # Socket $serv_msg, # message Serveur ...
Comments Off

Exemple d’utilisation d’une connexion FTP

Your ads will be inserted here byEasy AdSense.Please go to the plugin admin page to paste your ad code. Download #!/usr/bin/perl   use warnings; use strict; use Net::FTP;   my $ftp = Net::FTP->new("ftp.monserveurFTP.com",...
Comments Off

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

Download #!/usr/bin/perl -w   use Net::FTP;   $username = "test_username"; # Nom d'utilisateur $password = "test_mot_de_passe"; # Mot de passe $remotefile = "index.html"; ...
Comments Off

Méthode de communication avec le protocole TCP

Download   use IO::Socket;   # Envoi de message $server->send($message_a_envoyer, $flags) or die "Erreur: $!n";   # reception de message $server->recv($message_a_envoyer $maxlen, $flags) ...
Comments Off

Comment identifier le socket lié à votre connexion

Download #!/usr/bin/perl   use Socket;   $identite_client = getpeername(SOCKET)   or die "Impossible d'identifier le serveur: $!n"; ($port, $iaddr) = unpack_sockaddr_in($identite_client); $ip_address...
Comments Off

Perl: Trouver l’adresse DNS d’un host

Download #!/usr/bin/perl   use Socket;   $host = 'www.yahoo.fr';   # Extraction de l'adresse DNS $adresse_dns = inet_ntoa(inet_aton($host));   # Afficher l'adresse DNS print "L'adresse DNS de $host est...
Comments Off

Perl: Résoudre un hôte

Download #!/usr/bin/perl   use Socket; $adresse = gethostbyname("www.mesexemples.com") or die "Impossible de résoudre le host $hostname : $!";   $hostname = gethostbyaddr($adresse, AF_INET) ...
Comments Off

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

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...
Comments Off

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

Download   use Net::FTP;   $username = "test_username"; # Nom d'utilisateur $password = "test_mot_de_passe"; # Mot de passe $remotefile = "index.html"; # Fichier...