(Perl) HttpPostJson2 Example

Demonstrates use of the HttpPostJson2 method.

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

use chilkat();

#  This requires the Chilkat API to have been previously unlocked.
#  See Global Unlock Sample for sample code

#  See PostJson2Async Example for the async equivalent of this example.

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

#  Sends a POST equivalent to the following CURL command:

#  curl -X POST https://sandbox.plaid.com/institutions/get \
#    -H 'content-type: application/json' \
#    -d '{
#      "client_id": String,
#      "secret":String,
#      "count": Number,
#      "offset": Number
#    }'

#  Suppress some default headers that would automatically added..
$http->put_AcceptCharset("");
$http->put_UserAgent("");
$http->put_AcceptLanguage("");
$http->put_AllowGzip(0);

$jsonBody = "{\"client_id\": \"PLAID_CLIENT_ID\", \"secret\":\"PLAID_SECRET\", \"count\": 10, \"offset\": 0}";
# resp is a HttpResponse
$resp = $http->PostJson2("https://sandbox.plaid.com/institutions/get","application/json",$jsonBody);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$statusCode = $resp->get_StatusCode();
print "Response status code = " . $statusCode . "\r\n";

#  Examine the JSON response..
$json = chilkat::CkJsonObject->new();
$json->Load($resp->bodyStr());
$json->put_EmitCompact(0);
print "JSON Response Body:" . "\r\n";
print $json->emit() . "\r\n";