关于gethostbyaddr(perl)

关于gethostbyaddr(perl)

 

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];

另外，你可以给 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;