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時間

メールフォームよりご相談はこちら