Sys::Hostname - 尝试所有可能的方法来获取主机名
use Sys::Hostname;
my $host = hostname;
尝试多种方法获取系统主机名,然后缓存结果。它尝试 C 库的 gethostname()、`$Config{aphostname}`
、uname(2)、syscall(SYS_gethostname)
、`hostname`
、`uname -n`
和文件 /com/host 中第一个可用的方法。如果所有这些方法都失败,它会 croak
。
所有 NUL、回车和换行符都将从结果中移除。
David Sundstrom <[email protected]>
德州仪器
XS 代码由 Greg Bacon <[email protected]> 添加