ホスト名からIPアドレスを取得

　gethostbyname関数を使います。

use strict;
use warnings;
use Socket;

my $host = 'www.google.co.jp';

my ($name, $aliases, $addrtype, $length, @ipaddr) = gethostbyname($host);
foreach (@ipaddr) {
	my $address = join '.', unpack('C4', $_);
	print "$address\n";
}
print "\n";

# IPアドレスが一つだけ取れればよい場合(1)
my $address2 = gethostbyname($host);
print join('.', unpack('C4', $address2)), "\n";
print "\n";

# IPアドレスが一つだけ取れればよい場合(2)
my $address3 = inet_ntoa(inet_aton($host));
print "$address3\n";
print "\n";

ホスト名からIPアドレスを取得

関連項目