Discussion :

[LE NEINDRE]

Bonjour à tous,
Je voudrais savoir comment on peut faire pour connaître sa propre addresse ip en perl.
Je sais comment résoudre un nom PC en addresse ip à l'aide de la fonction gethostbyname() mais je voudrais savoir s'il existe pas (j'en suis sur un truc plus léger).

Le script est éxécuter en local, c'est un serveur qui écoute sur une socket (si je lui met 127.0.0.1), les remote clients qui veulent se connecter n'y arrivent pas. ça marche quand je lui mets son addresse ip (pas loopback)

Voilà pourquoi je pose cette question.

Merci beaucoup pour votre aide et désolé si la question est bête.

Bonne matinée.

[GLDavid]

Salut

Grâce au module CGI, tu as tout à disposition, notamment la table de hash ENV où $ENV{'REMOTE_ADDR'} te donne l'adresse IP de ton visiteur.

@++

[LE NEINDRE]

En fait, je veux mon addresse ip et je voudrais pas utiliser le module CGI (c'est pas pour du web).

Ce que j'ai fait, c'est, un script serveur qui sera éxécuter sur 3 postes (A,B et C) et qui ouvre une socket et écoute

Un script client éxécuter sur un poste D et qui envoie un message sur la socket de chacun des 3 à un moment donné (qd il y a une erreur sur le poste D)

Comme je suis en dhcp, j'utilise, dans mon script client, la fonction gethostbyname pour trouver l'addresse ip à laquelle se connecter.

Il ne me reste plus qu'à connaître la fonction (sur le script serveur) qui permet de récupérer sa propre addresse ip.

J'espère que j'ai été assez clair, j'ai peur d'être confus.

Peux tu me dire comment, en fait on récupère sa propre addresse ip ?

[LE NEINDRE]

Bon bah en fait c'était plus simple que prévu.
Au lieu de faire au niveau du script serveur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
$socket = new IO::Socket::INET (
                    LocalHost => '127.0.0.1' ,
                    LocalPort => 5004 ,
                    Proto => 'tcp' ,
                    Listen => 5 ,
                    Reuse => 1
              ) ;

Il fallait faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
$socket = new IO::Socket::INET (
                    LocalPort => 5004 ,
                    Proto => 'tcp' ,
                    Listen => 5 ,
                    Reuse => 1
              ) ;