| Server IP : 49.212.180.16 / Your IP : 18.216.67.249 Web Server : Apache System : FreeBSD www2606.sakura.ne.jp 13.0-RELEASE-p14 FreeBSD 13.0-RELEASE-p14 #2: Mon Dec 9 13:54:55 JST 2024 root@www5301.sakura.ne.jp:/usr/obj/usr/src/amd64.amd64/sys/GENERIC amd64 User : utannto ( 1076) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /home/rs/perl/fml/lib/perl5/5.8/ |
Upload File : |
# From: asherman@fmrco.com (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;