Sobre función en perl

Hola toicondio:
Que función puedo utilizar en perl para conocer el nombre del servidor unix donde se ejecuta el programa
Saludos
ricardo
Respuesta
1
Este script funciona en todos los entornos imaginables...
sub hostname
{
local(*P,@tmp,$hostname,$_);
if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P))
{
chop($hostname = $tmp[$#tmp]);
}
elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P))
{
chop($hostname = $tmp[$#tmp]);
}
else
{
die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
}
@tmp = ();
close P; # Just in case we failed in an odd spot....
$hostname;
}

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas