Perl

obtenir mon adresse IP en Perl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : obtenir mon adresse IP en Perl

baygonGenius

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é

pospos

Code :

use Sys::Hostname ();
use Socket ();
my $hostname = Sys::Hostname::hostname();
my $address = gethostbyname($hostname);
print Socket::inet_ntoa($adress);

baygonGenius

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

bizare ca!
et il te donne bien le bon hostname?

baygonGenius

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

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: ".$!);
foreach(@lines){
if(/inet addr:([\d.]+)/){
print "$1\n";
}
}

Merci qd meme et A+

FORUM HardWare.fr

Programmation

Perl

obtenir mon adresse IP en Perl

Sujets relatifs
Extension PHP/PERL	gif anime en PERL TK
javascript dans page PERL/CGI ?!	[Résolu] Comment obtenir le résultat -opposé- d'un SELECT ?
C++ : Effacer une zone mémoire à une adresse donnée	Probleme de socket dans petit script sftp Perl
Probleme sur javascript adresse ip en	quelle est l'adresse du serveur MYSQL OVH
Récupération adresse IP : légal ou pas?	Comment modifier une variable passé en argument de fct par son adresse
Plus de sujets relatifs à : obtenir mon adresse IP en Perl

Page générée en 0.047 secondes