recupérer le nom de la machine

bonjour,

Je souhaiterai récupérer en perl, le nom de ma machine. l'équivalent du hostname avec la commandes dos.

j'ai vu qu'il y avait la commande

Code:

---

1 2	print $ENV{"SERVER_NAME"};

---

mais ne faut il pas télécharger un module, car pour l'instant ça ne fonctionne pas.

merci pour votre aide

Si tu es sous DOS:

Code:

---

my $machine = qx/hostname/; chomp($machine);

---

Si tu es sous UNIX:

Code:

---

my $machine = qx/uname -n/; chomp($machine);

---

Après, ce n'est pas la solution la plus propre, il existe peut-être un module pour ça...

en effet j'aurai voulu avoir plus d'infos sur la commande" print $ENV{"SERVER_NAME"};"

Code:

---

1 2 3 4 5 6 7 8

use Sys::Hostname; use Socket; #Liste des repertoires à traiter my $host = hostname; my $IP = inet_ntoa(inet_aton(hostname()));   print "$host : $IP\n";

---

voilou

Citation:

---

Envoyé par vince2005

en effet j'aurai voulu avoir plus d'infos sur la commande" print $ENV{"SERVER_NAME"};"

---

Il faut avoir défini sur la machine une variable d'environnement nommée SERVER_NAME et qui contient le nom de la machine. Ensuite, utiliser un code

Code:

---

1 2 3

use Env; Env::import; my $name = $ENV{"SERVER_NAME"};

---

Mais ça implique que tu doives renseigner cette variable sur chaque machine où ton script sera déployé !!!