mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
451 B
23 lines
451 B
# From: [email protected] (Aaron Sherman)
|
|
|
|
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;
|
|
}
|
|
|
|
1;
|