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時間
メールフォームよりご相談はこちら