- gethostbyaddr ADDR, ADDRTYPE
这个函数把地址转换成名字(和改变地址)。ADDR 应该是一个封包的二进制网络地址,而 ADDRTYPE 实际上通常应该是 AF_INET(来自 Socket 模块)。其返回值在列表环境里是:
($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($packed_binary_address, $addrtype);
这里 @addrs 是一个封包的二进制地址。在互联网域里,每个地址都(因历史关系)是四个字节长,并且可以通过用下面这样的东西解包:
($a, $b, $c, $d) = unpack('C4', $addrs[0]);
另外,你可以给 sprintf 用 v 修饰词把它直接转换成点向量表示法:
$dots = sprintf "%vd", $addrs[0];
Socket 模块的 inet_ntoa 函数可以用于生成可打印的版本。这个方法在我们都准备切换到 IPv6 的时候会变得很重要。
use Socket; $printable_address = inet_ntoa($addrs[0]);
在标量环境里,gethostbyaddr 只返回主机名字。
要从一个点向量中生成一个 ADDR,用:
use Socket; $ipaddr = inet_aton("127.0.0.1"); # localhost $claimed_hostname = gethostbyaddr($ipaddr, AF_INET);
有趣的是,在 Perl 5.6 里,你可以忽略 inet_aton() 并且使用新的用于版本号的 v 字串表示法操作 IP 地址:
$ipaddr = v127.0.0.1;