source: for-distributions/trunk/bin/windows/perl/lib/hostname.pl@ 14489

# From: [email protected] (Aaron Sherman)
#
# This library is no longer being maintained, and is included for backward
# compatibility with Perl 4 programs which may require it.
#
# In particular, this should not be used as an example of modern Perl
# programming techniques.
#
# Suggested alternative: Sys::Hostname
#
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;