Cgots
In den nächsten Zeilen werden wir einen Prozess beschreiben, wie sie abrufen und geografische Informationen von einer IP -Adresse abrufen können . Dazu werden wir ein MaxMind Perl API -Modul verwenden. Dieses Unternehmen bietet auch eine Datendatei -GeoLitecity, die kostenlos ist, aber weniger genau ist als die kostenpflichtige Version. Zuerst für einen Vorbereitungsteil müssen wir ein Geoip Perl -Modul und eine Datendatei herunterladen:
$ CD $ MKDIR GEOIP $ CD Geoip $ WGet http: // Geolith.Maxmind.com/download/geoip/api/perl/geo-ip-1.38.Teer.gz $ wget http: // Geolith.Maxmind.com/download/geoip/database/GeoLitecity.dat.gz
Während im GEOIP -Verzeichnis besteht der nächste Schritt darin, beide Pakete zu extrahieren:
$ tar XZF Geo-IP-1.38.Teer.GZ $ Gunzip Geolitkheit.dat.gz
Es sollte darauf hingewiesen werden, dass dieser Artikel davon ausgeht, dass Sie eine gewisse Verteilung von Linux mit Perl -Interpreter ausführen.
In dieser Phase erstellen Sie eine Datei namens Iptolocation.PL in Ihrem Geoip -Verzeichnis mit einem folgenden Code:
#!/usr/bin/perl verwenden lib "geo-ip-1.38/lib/"; Verwenden Sie Geo :: ip; mein $ gi = geo :: ip-> öffnen (" GeoLitecity.dat ", Geoip_Standard); mein $ r = $ gi-> record_by_name ($ argv [0]); if ($ r) print join (" \ n ", $ r-> country_code, $ r-> country_name, $ R-> Stadt, $ r-> Region, $ r-> region_name, $ r-> postal_code, $ r-> latitude, $ r-> longitude, $ r-> metro_code, $ r-> Area_code) . "\N"; else print "Der Ort dieser IP -Adresse ist nicht definiert !\N"; Iptolokation machen.PL Executable:
$ chmod +x iptolocation.Pl
Dieses einfache Perl -Skript akzeptiert ein einzelnes Argument, und das ist eine IP -Adresse, die wir an einen geografischen Ort konvertieren möchten. Mit anderen Worten führen das Skript wie unten aus:
./Iptolokalisiert.PL 8.8.8.8
AUSGANG:
$ ./Iptolokalisiert.PL 8.8.8.8 US United States Mountain View CA Kalifornien 94043 37.4192 -122.0574 807 650