Salut,
je suis en stage et je doit faire un prog en perl pour administrer des serveurs DNS.
Est ce que quelqu'un saurait comment recuperer son @ IP sans passer par le DNS ??
Merci pour vos réponses
Publicité
Posté le 14-04-2005 à 14:22:10
pospos
Posté le 14-04-2005 à 14:50:44
Code :
use Sys::Hostname ();
use Socket ();
my $hostname = Sys::Hostname::hostname();
my $address = gethostbyname($hostname);
print Socket::inet_ntoa($adress);
baygonGenius
Posté le 14-04-2005 à 14:55:27
merci pospos mais chez moi ca ecrit ca:
127.0.0.1 ns2var/www# donc ca affiche l'@ ip en localhost alors que je voudrait l'@ publique.
Merci pour ton aide
pospos
Posté le 14-04-2005 à 14:58:42
bizare ca!
et il te donne bien le bon hostname?
baygonGenius
Posté le 14-04-2005 à 15:02:23
ouais j'ai bien le hostname.
mais je me connecte sur le serveur par Xmanager (je sais pas si ca a un rapport)
Est ce qu'il y aurait un autre moyen pour avoir l'IP ??
Merci
baygonGenius
Posté le 14-04-2005 à 15:32:26
C'est bon j'ai trouvé.
Ca donne l'@ ip en fonction de l'interface c'est plus facile
Code :
# the interface is what your external IP is bound to- eth0 or ppp0, most likely
# if you're on ADSL/dialup, it's probably ppp0
$interface="eth0";
# path to ifconfig
$ifconfig="/sbin/ifconfig";
@lines=qx|$ifconfig $interface| or die("Can't get info from ifconfig: ".$!);