Geo::IP - Look up country by IP Address
use Geo::IP; my $gi = new Geo::IP('/path/to/db/Net-Geography-Perl_200106.db'); # look up IP address '126.96.36.199' # returns undef if country is unallocated, or not defined in our database my $country = $gi->lookup_country('188.8.131.52'); # $country is equal to "US"
This module uses the Berkeley database. This database simply contains IP blocks as keys, and countries as values. The data is obtained from the ARIN, RIPE, and APNIC whois servers. This database should be more complete and accurate than reverse DNS lookups.
This module can be used to automatically select the geographically closest mirror, or to target advertising by country, to analyze your web server logs to determine the countries of your visiters, for credit card fraud detection, and for software export controls.
To find a country for an IP address, this module finds Networks that contain the IP address, starting with a netmask of 32, going up to 3 until it finds a matching IP Block.
IP to country database available from http://www.geo-ip.com Up-to-date as of June 1st, 2001
Updates to the database should come out monthly. Look for updates at http://www.geo-ip.com
Copyright (c) 2001, T.J. Mather, firstname.lastname@example.org
All rights reserved. This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself.