Perl

ipinfo.io IPv4 Geolocation Lookup

See more Geolocation Examples

Demonstrates how to lookup Geolocation data for an IPv4 address using the ipinfo.io API. Perl

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();

$http->put_Login("ACCESS_TOKEN");
$http->put_Password("");
$http->put_Accept("application/json");

# Lookup an IPv4 address: 149.250.207.170  (this was a randomly chosen address)
$jsonStr = $http->quickGetStr("https://ipinfo.io/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

# Note: This is the output for the free trial account.
# 
# {
#   "ip": "149.250.207.170",
#   "city": "",
#   "region": "",
#   "country": "DE",
#   "loc": "51.2993,9.4910",
#   "org": "AS15854 EntServ Deutschland GmbH"
# }

# A full response would look like this:

# {
#   "ip": "66.87.125.72",
#   "hostname": "66-87-125-72.pools.spcsdns.net",
#   "city": "Southbridge",
#   "region": "Massachusetts",
#   "country": "US",
#   "loc": "42.0707,-72.0440",
#   "postal": "01550",
#   "asn": {
#     "asn": "AS10507",
#     "name": "Sprint Personal Communications Systems",
#     "domain": "spcsdns.net",
#     "route": "66.87.125.0/24",
#     "type": "isp"
#   },
#   "company": {
#     "name": "Sprint Springfield POP",
#     "domain": "sprint.com",
#     "type": "isp"
#   },  
#   "carrier": {
#     "name": "Sprint",
#     "mcc": "310",
#     "mnc": "120"
#   }
# }
# 

$ip = $json->stringOf("ip");
$hostname = $json->stringOf("hostname");
$city = $json->stringOf("city");
$region = $json->stringOf("region");
$country = $json->stringOf("country");
$loc = $json->stringOf("loc");
$postal = $json->stringOf("postal");
$asnAsn = $json->stringOf("asn.asn");
$asnName = $json->stringOf("asn.name");
$asnDomain = $json->stringOf("asn.domain");
$asnRoute = $json->stringOf("asn.route");
$asnType = $json->stringOf("asn.type");
$companyName = $json->stringOf("company.name");
$companyDomain = $json->stringOf("company.domain");
$companyType = $json->stringOf("company.type");
$carrierName = $json->stringOf("carrier.name");
$carrierMcc = $json->stringOf("carrier.mcc");
$carrierMnc = $json->stringOf("carrier.mnc");