Perl
Perl
ipapi.co IPv4 Geolocation Lookup
See more Geolocation Examples
Demonstrates how to lookup Geolocation data for an IPv4 address using the ipapi.co REST API.Chilkat Perl Downloads
use chilkat();
$success = 0;
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$http = chilkat::CkHttp->new();
# Lookup an IPv4 address: 149.250.207.170 (this was a randomly chosen address)
$jsonStr = $http->quickGetStr("https://ipapi.co/149.250.207.170/json");
if ($http->get_LastMethodSuccess() == 0) {
print $http->lastErrorText() . "\r\n";
exit;
}
$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);
$success = $json->Load($jsonStr);
print $json->emit() . "\r\n";
# Sample output:
# Use this online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON
# {
# "ip": "149.250.207.170",
# "city": "B�blingen",
# "region": "Baden-W�rttemberg",
# "region_code": null,
# "country": "DE",
# "country_name": "Germany",
# "continent_code": "EU",
# "in_eu": true,
# "postal": null,
# "latitude": null,
# "longitude": null,
# "timezone": null,
# "utc_offset": null,
# "country_calling_code": "+49",
# "currency": "EUR",
# "languages": "de",
# "asn": "AS15854",
# "org": "EntServ Deutschland GmbH"
# }
$ip = $json->stringOf("ip");
$city = $json->stringOf("city");
$region = $json->stringOf("region");
$region_code = $json->stringOf("region_code");
$country = $json->stringOf("country");
$country_name = $json->stringOf("country_name");
$continent_code = $json->stringOf("continent_code");
$in_eu = $json->BoolOf("in_eu");
$postal = $json->stringOf("postal");
$latitude = $json->stringOf("latitude");
$longitude = $json->stringOf("longitude");
$timezone = $json->stringOf("timezone");
$utc_offset = $json->stringOf("utc_offset");
$country_calling_code = $json->stringOf("country_calling_code");
$currency = $json->stringOf("currency");
$languages = $json->stringOf("languages");
$asn = $json->stringOf("asn");
$org = $json->stringOf("org");