■こんなCGI作ってください■ Part.2

[0985 nobodyさん 2006/10/10(火) 03:07:56 ID:1hVNr2LH]

だれかこれ↓を.plのライブラリにしていただけないでしょうか・・・
お願いします
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;
}