24 lines
451 B
Perl
24 lines
451 B
Perl
# From: asherman@fmrco.com (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;
|