(Perl) api.db-ip.com IPv4 Geolocation Lookup

Demonstrates how to lookup Geolocation data for an IPv4 address using the api.db-ip.com REST API.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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("http://api.db-ip.com/v2/free/149.250.207.170");
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

# {
#   "ipAddress": "149.250.207.170",
#   "continentCode": "EU",
#   "continentName": "Europe",
#   "countryCode": "DE",
#   "countryName": "Germany",
#   "stateProv": "Baden-W\u00fcrttemberg",
#   "city": "B\u00f6blingen"
# }

$ipAddress = $json->stringOf("ipAddress");
$continentCode = $json->stringOf("continentCode");
$continentName = $json->stringOf("continentName");
$countryCode = $json->stringOf("countryCode");
$countryName = $json->stringOf("countryName");
$stateProv = $json->stringOf("stateProv");
$city = $json->stringOf("city");