[Perl] IPアドレスの割り当て国を調べるにはIP::Country::Fastモジュールを使用します。 [例 - countryip.pl] #!/usr/bin/perl use IP::Country::Fast; print "Enter the IP address: "; my $ip_addr = <STDIN>; my $reg = IP::Country::Fast->new(); print $reg->inet_atocc($ip_addr) . "\n"; [使用例] [testuser@server testuser]$ ./countryip.pl Enter the IP address: 218.219.203.56 JP