IPアドレスやドメイン名がどこの国にあるのかを調べる

---

　IP::Country::Fastモジュールを使います。

use strict;
use warnings;
use IP::Country::Fast;

my @domains = qw(
	www.google.co.jp
	www.yahoo.co.jp
	www.biglobe.ne.jp
	59.106.108.86
);
my $reg = IP::Country::Fast->new();

foreach my $domain (@domains) {
	my $country = $reg->inet_atocc($domain);
	$country = '??' unless defined $country;
	printf "%s: %s\n", $country, $domain;
}

---

関連項目

・IPアドレスからホスト名を取得
・ホスト名からIPアドレスを取得
・DNS問い合わせ