29 мая 2015 г., 15:05 пользователь [email protected] <[email protected]> написал:
> hi > Используйте GEOIP > Спасибо, мне такой точности не надо :) Мне надо от RIPE только Country, ASN и abuse-mailbox > > http://search.cpan.org/~maxmind/Geo-IP-1.45/lib/Geo/IP.pm > http://dev.maxmind.com/geoip/legacy/geolite/#Databases > > пример perl скрипта: > > sub get_geoip{ > use Geo::IP; > my $sender_host_address = shift; > my $gi = Geo::IP->open("GeoLiteCity.dat"); > my $record = $gi->record_by_addr($sender_host_address) or return 0 > and die; > my $geoip = "Country Code = ".$record->country_code.",". > "Country Code 3 = ".$record->country_code3.",". > "Country Name = ".$record->country_name.",". > "Region = ".$record->region.",". > "Region Name = ".$record->region_name.",". > "City = ".$record->city.",". > "Postal_code = ".$record->postal_code.",". > "GPS latitude/longitude = > ".$record->latitude."/".$record->longitude.",". > "Time Zone = ".$record->time_zone.",". > "Area Code = ".$record->area_code; > $geoip =~ s/'/\\'/g; > return $geoip; > } > Если Вы не знакомы с Perl, могу написать простой скрипт который будет > принимать ip и возвращать то что вам нужно. > Если кол-во проверок в сутки увеличится, будут смотреть в сторону самописного сервиса на основе: Net::Whois::Parser inetd Swhoisd -- Vladislav V. Prodan System & Network Administrator support.od.ua
