Perl-gethostbyaddr

Perl gethostbyaddr関数

説明

この関数は、システムの名前解決サービスに接続し、次のようにタイプADDRTYPEのホストADDRの情報のリストを返します-（$ name、$ aliases、$ addrtype、$ length、@addrs）

@addrs配列には、パックされたバイナリアドレスのリストが含まれています。 スカラーコンテキストでは、ホストアドレスを返します。

構文

以下は、この関数の簡単な構文です-

gethostbyaddr ADDR, ADDRTYPE

戻り値

この関数は、エラーの場合はundefを返し、そうでない場合はスカラーコンテキストのホスト名を返し、エラーの場合は空のリストを返し、そうでない場合はリストコンテキストのホストレコードを返します。

例

以下は、その基本的な使用法を示すコード例です-

#!/usr/bin/perl
use Socket;

   $iaddr = inet_aton("127.1"); # or whatever address
   $name  = gethostbyaddr($iaddr, AF_INET);
   print "Host name is $name\n";

上記のコードが実行されると、次の結果が生成されます-

Host name is ip-50-62-147-141.ip.secureserver.net