trouver adresse IP

trouver adresse IP - Perl - Programmation

Marsh Posté le 14-04-2004 à 17:31:29    

Slt,  
 
J'aimerais pouvoir récupérer mon adresse ip avec perl
 
pas de soucis en bash mais je connais rien en perl et je vois pas comment faire ...
 
pour bash :  

Citation :


#!/bin/bash
sudo ifconfig ppp0 | grep inet | cut -d ":" -f 2 | cut -d " " -f 1


 
mais pour perl, les commandes systeme ne sont pas interpretées...
 
Merci de votre aide

Reply

Marsh Posté le 14-04-2004 à 17:31:29   

Reply

Marsh Posté le 14-04-2004 à 22:59:45    

comme ca:

Code :
  1. use Sys::Hostname;
  2. use Socket;
  3. print inet_ntoa(inet_aton(hostname()));

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed