うまい棒の断片

■ [perl]ホスト名を解決する 15:51

• 参考: http://www.7key.jp/program/perl/gethostbyname.html

gethostbyname

モジュールは不要。DNS以外に/etc/hostsの内容からも解決できる。

my $host = "www.sample.com";
my $addr = gethostbyname($host);
my $ip_add = join '.', unpack("C*", $addr);

DNSを直接調べる場合は、Net::DNSを使う。