#!/usr/local/bin/perl
#設定
#CSS(使う=1)
$usecss = 0;
#CSSのアドレス(CSSを使う場合のみ)
$cssurl ="";
#メインなかんじ
$ip = $ENV{'REMOTE_ADDR'};
$addr = &GetHostByAddr($ENV{'REMOTE_ADDR'});
print "Content-type: text/html\n";
print "\n";
print "
IPアドレス/リモートホスト取得\n";
if ($usecss == 1){print "\n";}else{}
print "\n";
print "あなたのIPアドレス/リモートホスト
\n";
print "※選択ボタン→Ctrl+Cでコピーして使うべし。
\n";
print "getip v1.0 by Sigh\n";
exit(0);
#IPアドレスからリモートホストを取得
sub GetHostByAddr {
my($ip_address) = @_;
my(@addr) = split(/\./, $ip_address);
my($packed_addr) = pack("C4", $addr[0], $addr[1], $addr[2], $addr[3]);
my($name, $aliases, $addrtype, $length, @addrs);
($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($packed_addr, 2);
return $name;
}