Perl

HttpPostJson2 Example

See more HTTP Examples

Demonstrates use of the HttpPostJson2 method. Perl

use chilkat();

$success = 0;

# 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";