Discussion :

[vince2005]

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 :

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

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

[MarneusCalgarXP]

Si tu es sous DOS:

Code :

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

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

Si tu es sous UNIX:

Code :

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

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...

[vince2005]

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

[djibril]

Code :

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

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

[MarneusCalgarXP]

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 :

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

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é !!!