>>666
#!/usr/local/bin/perl

$host_name = &GetHostName($ENV{'REMOTE_ADDR'});
print "Content-type: text/html\n\n";
print "あなたのホスト名は、$host_name です。";
exit;

sub GetHostName {
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;
}
UNIXならこれでばっちりだぞ！！！
perl for winなら#!/usr/local/bin/perl
でわくわくだぞ！！
>>668
あれ？XPと９８、９５、sambaでパスワード
もとめられないぞ、２０００でも最初は聞いてくるけど
２回目は聞いてこないぞ
なんだそれ
わくわくするぞお！！