(Perl) Load JSON Array from HTTP Response Body

Demonstrates how to load the HTTP response body directly into a JsonArray.

Note: This example requires Chilkat v9.5.0.89 or greater because it uses the GetBodyJarr method. Prior to v9.5.0.89, and application would need to first copy the HTTP response body to a Chilkat StringBuilder object by calling GetBodySb, and then load the JsonArray by calling JsonArray.LoadSb.

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

use chilkat();

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

# resp is a HttpResponse
$resp = $http->PText("GET","https://www.chilkatsoft.com/exampledata/sampleArray.json","","","",0,0);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# A JSON array is JSON that begins with "[" and ends with "]"
$jarr = chilkat::CkJsonArray->new();

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

$resp->GetBodyJarr($jarr);

print $jarr->emit() . "\r\n";

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