IPからホスト名、ホスト名からIP（Socket,inet_aton,gethostbyadd）

perlでIPアドレスからホスト名、ホスト名からIPアドレスを得るスクリプトです。

Socketモジュールを使用します。

まずはホスト名からIPアドレス

use Socket;
$ip = inet_aton("www.yahoo.co.jp ");
$ip_adr = inet_ntoa($ip);
print $ip_adr."\n";

続いてIPアドレスからホスト名。

use Socket;

$ip_addr = inet_aton("203.216.243.218");
$name = gethostbyaddr($ip_addr, AF_INET);
print $name."\n";