Discussion :

[renaud26]

Bonjour à tous,

Mon but était de trouver mon adresse IP en perl.
J'ai donc consulté FAQ et tutos, et j'ai trouvé une méthode:

Code :

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

1
2
3
4
5
6
7
8
9
 
 
use Sys::Hostname;
use Socket;
my $host = hostname;
my $IP = inet_ntoa(inet_aton(hostname()));
 
print "Content-type: text/html\n\n";
print "$IP";

Le problème c'est que ça affiche une adresse IP qui n'est pas du tout la même que celle obtenue en php avec

Code :

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

1
2
 
getenv("REMOTE_ADDR");

Comment faire pour obtenir ce type d'IP en perl ?
Merci d'avance pour vos tuyaux.

[tfe]

cette fonction va te donner l'adresse IP locale, donc differente de ton ip internet.

peut qu'en utilisant le module CGI tu obtiendras une autre reponse:

Code :

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

1
2
my $q=CGI->new();
print $q->header().$q->remote_addr()."\n";

[iblis]

Le plus simple est peut être de passer par un service dédié.

Code :

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

1
2
use LWP::Simple;
my $ip = get('http://www.whatismyip.com/automation/n09230945.asp');