IP2
#!/usr/bin/perl
use strict;
my $host_name = &GetHostByAddr($ENV{‘REMOTE_ADDR’});
print “Content-type: text/html; charset=utf-8\n\n”;
print “あなたのホスト名は、$host_name です。”;
exit;
sub GetHostByAddr {
my($ip) = @_;
my @addr = split(/\./, $ip);
my $packed_ip = pack(“C4”, $addr[0], $addr[1], $addr[2], $addr[3]);
my($name) = gethostbyaddr($packed_ip, 2);
return $name;
}
ご相談、ご不明の点がございましたらまずはWNAにご相談ください。
+86(21) 6295-7656 (中国)
info@wna.jp(メーラーが立ちあがります）
営業時間（一般）：月曜日～土曜日 9:00～18:00（現地時間） 営業時間（緊急）：24時間
メールフォームよりご相談はこちら
