Perl

Load JSON Object from HTTP Response Body

Demonstrates how to load the HTTP response body directly into a JSON object. Perl

use chilkat();

$success = 0;

$http = chilkat::CkHttp->new();

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("GET","https://www.chilkatsoft.com/exampledata/sample.json","","","",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# A JSON object is JSON that begins with "{" and ends with "}"
$json = chilkat::CkJsonObject->new();

# If we wish to transfer (instead of copy) the JSON from the HttpResponse to the JsonObject, then add the keyword "TakeResponseBody" to UncommonOptions
# This could save memory for extremely large JSON responses.
$resp->put_UncommonOptions("TakeResponseBody");

$resp->GetBodyJson($json);

$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

# Note: If UncommonOptions contained "TakeResponseBody", then the response BodyStr will now be empty:
print "----" . "\r\n";
print $resp->bodyStr() . "\r\n";