ミスティーネットレンタルサーバー－ MISTY-NET － Perl･CGI講座　関数検索 >> gethostbyaddr/gethostbyname

[関数の使い方･書式]

○ ＝ gethostbyaddr ☆,★
● ＝ gethostbyname □

☆：	(スカラー)	通常IPv4アドレス｡	･･･	4バイト長にパックされたアドレス｡
★：	(スカラー)	アドレスタイプ。	･･･	Perl5では通常は定数 &AF_INET を使用(あるいは２)｡
□：	(スカラー)	ホスト名	･･･	www.att.or.jp などのホスト名｡
○：	(スカラー)	ホスト名｡	･･･	そのホストの基準名
○：	(スカラー)	ホスト名｡	･･･	そのホストの基準名
	(リスト)	ホスト名、エイリアス、アドレスタイプ、アドレスの長さ、アドレスのリスト｡
●：	(スカラー)	通常IPv4アドレス｡	･･･	4バイト長にパックされたIPアドレス｡
	(リスト)	ホスト名、	･･･	そのホストの基準名｡
		エイリアス、	･･･	引数が別名(CNAME) だった場合にセット。
		アドレスタイプ、	･･･	通常は AF_INET を表す２．
		アドレスの長さ、	･･･	格納されているアドレスのバイト数。通常は４｡
		アドレスのリスト｡	･･･	通常は4バイト長にパックされたIPv4アドレス｡

[関数の機能]

gethostbyaddr はIPアドレスからホスト情報を返します｡
gethostbyname はホスト名からホスト情報を返します｡

[書式の例]

１．$hostname = gethostbyaddr($ipaddress, 2);

IPアドレス $ipaddress からホスト情報を取得します｡

２．$ipaddr = gethostbyname($hostname);

ホスト名 $hostname からIPアドレスを取得します｡

$AF_INET = 2;   # Perl4用
$address = pack('C4', 192.168.0.1);
$hostname = gethostbyaddr($address, $AF_INET);
print "\$hostname = $hostneme", "\n";

$host = 'www.att.or.jp';
($name, $aliases, $addrtype, $length, @ipaddr) = gethostbyname($host);
print "\$name = $name", "\n";
print "\$aliases = $aliases", "\n";
print "\$addrtype = $addrtype", "\n";
print "\$len = $length", "\n";
foreach (@ipaddr) {
	@addr = unpack('C4', $_);
	print "Address = $addr[0].$addr[1].$addr[2].$addr[3]", "\n";
}



	\| HOME \| ご利用について \| 推奨環境 \| リンクに関して \| 免責/規約 \| お問合せ \| ミスティーネット \| リンク集 \|