Posts Tagged ‘adresse’

Perl: Trouver l’adresse DNS d’un host

 dns, socket, adresse, socket
{filelink=13112}

#!/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 $adresse_dns";

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]

Perl: Résoudre un hôte

 socket, adresse, socket
{filelink=13115}

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

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]

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

serveur, date, socket, adresse, socket
{filelink=13110}

#!/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]

Perl: Lire les emails d’un serveur POP3

serveur, list, list, adresse, email
{filelink=13118}

#!/usr/local/bin/perl
 
############## Programme de lecture d'email ##############
#   Lire les email d'un serveur Mail
#
use strict;
 
my  $mail_server="mail.serveur.com";            # Adresse du serveur mail
my  $username = "test_username";                # Nom d'utilisateur
my  $password = "test_mot_de_passe";            # Mot de passe
 
my $pop = Net::POP3->new($mail_server)
    or die "Impossible de se connecteur au serveur $mail_server : $!n";
 
# Authentification client
defined ($pop->login($username, $password))
    or die "Nom d'utilisateur ou mot de passe incorrect: $!n";
 
# Obtenir la liste des emails
my $messages = $pop->list
 or die "Impossible d'obtenir la liste des messages: $!n";
 
foreach my $msgid (keys %$messages)
{
    my $message = $pop->get($msgid);
    unless (defined $message)
     {
        warn "Impossible de lire le message avec l'ID$msgid: $!n";
        next;
    }
    # Afficher le message
    print @$message;
    $pop->delete($msgid);
}

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]

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

serveur, socket, adresse, socket
{filelink=13106}

 
#!/usr/local/bin/perl
 
use IO::Socket;
 
my $remote_host="127.0.0.1";      # L'adresse du serveur
my $remote_port=80;               # Le port du Serveur
my $protocole="tcp";              # Le protocole utilisé
 
$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                                PeerPort => $remote_port,
                                Proto    => $protocole,
                                Type     => SOCK_STREAM)
    or die "Echec de connexion avec les paramètres suivant: $remote_host:$remote_port : $@n";
 
$reponse_conn = <$socket>;
print   $reponse_conn,"n";
 
# Fermeture de la connexion
close($socket);

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]

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

serveur, socket, adresse, socket
{filelink=13107}

#!/usr/local/bin/perl
  ############## Socket Client ################
 
use Socket;                       # intégration du module Socket
 
my $remote_host="127.0.0.1";      # L'adresse du serveur
my $remote_port=80;               # Le port du Serveur
my $protocole="tcp";              # Le protocole utilisé
 
# Création du Socket
socket(TO_SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
 
# Définir l'adresse de la machine distante
$addr_internet = inet_aton($remote_host)
    or die "Adresse $remote_host introuvable: $!n";
 
    # Définir le port de connexion sous l'adresse
$paddr = sockaddr_in($remote_port, $addr_internet);
 
# Démarrer la connexion
connect(TO_SERVER, $paddr)
    or die "Echec de connexion avec les paramètres suivant:
    			$remote_host:$remote_port : $!n";
print "Attente de données Serveur....";
# Lire les informations envoyées par le Serveur
print <TO_SERVER>;
 
# Fermeture de la connexion
close(TO_SERVER);

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]