關於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;