Perl-getnetbyaddr
提供:Dev Guides
Perl getnetbyaddr関数
説明
この関数は、リストコンテキストでADDRとタイプADDRTYPEで指定されたネットワークの情報を返します:($ name、$ aliases、$ addrtype、$ net)
構文
以下は、この関数の簡単な構文です-
getnetbyaddr ADDR, ADDRTYPE
戻り値
この関数は、エラーの場合はundefを、そうでない場合はスカラーコンテキストのネットワークアドレス、エラーの場合は空のリストを返します。それ以外の場合、リストコンテキストのネットワークレコード(名前、エイリアス、アドレスタイプ、ネットワークアドレス)。
例
以下は、その基本的な使用法を示すコード例です-
#!/usr/bin/perl
use Socket;
$iaddr = inet_aton("127.1"); # or whatever address
($name, $aliases, $addrtype, $net) = getnetbyaddr($iaddr, AF_INET);
print "Name = $name\n";
print "Aliases = $aliases\n";
print "Addrtype = $addrtype\n";
print "Net = $net\n";
上記のコードが実行されると、次の結果が生成されます-
Name = default
Aliases =
Addrtype = 2
Net = 0