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