WorldIP - free geolocation database, service and tools

Благодаря Craig MacKenna в CPAN появился модуль для нашей базы IP::World.
На сегодняшний момент это самый быстрый модуль для доступа к IP геобазе. На Athlon64 2.4GHz выполняется 236K req/sec; XEON E5405 2Ghz - 267K req/sec

Инсталляция очень проста:

cpan -i IP::World

В ваших Perl-программах его можно использовать так:

use IP::World;
my $ipw = IP::World->new(0);
print $ipw->getcc("123.45.67.89");

Или воспользоваться маленькой консольной утилитой ip2country, основанной на этом модуле, как интерактивно, так и командной строкой:

echo "3.4.5.6" | ./ip2country
./ip2country 3.4.5.6

В комплекте с модулем идет утилита maint_ip_world_db, которая следит за актуальностью базы. Достаточно поставить ее в ежемесячный/еженедельный cron.

cat worldip.conf | grep -E 'US|CA|DE|FR|GB' > worldip.good.conf

 geo  $geo {

       include  worldip.good.conf;

       default  0;

   }

location / {

       if ($geo = 0) { return 403; }

       ...

   }

cat worldip.conf | grep -E 'US|CA|DE|FR|GB' > worldip.my.conf