Perl getnetbyaddr 函数
描述
此函数返回由 ADDR 指定的网络的信息，并在列表上下文中键入 ADDRTYPE: ($name, $aliases, $addrtype, $net)
语法
以下是此函数的简单语法 −
getnetbyaddr ADDR, ADDRTYPE
返回值
此函数在错误时返回 undef，否则返回标量上下文中的网络地址，否则返回空列表，否则列表上下文中的网络记录（名称、别名、地址类型、网络地址）。
示例
以下是显示其基本用法的示例代码 −
#!/usr/bin/perl
use Socket;
$iaddr = inet_aton("127.1"); # or whatever address
($name, $aliases, $addrtype, $net) = getnetbyaddr($iaddr, AF_INET);
print "Name = $name\n";
print "Aliases = $aliases\n";
print "Addrtype = $addrtype\n";
print "Net = $net\n";
执行上述代码时，会产生以下结果 −
Name = default Aliases = Addrtype = 2 Net = 0
