Статья

Модуль на Perl для WorldIP-базы

Благодаря 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.