(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 v11.0.0 or greater.
use chilkat();
$success = 0;
$http = chilkat::CkHttp->new();
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("GET","https://www.chilkatsoft.com/exampledata/sampleArray.json","","","",$resp);
if ($success == 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";
|