(Perl) HTTP POST with JSON Body

Demonstrates sending an HTTP POST with a JSON body.

For more information, see https://chilkatsoft.com/http_post_with_json_body.asp

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

use chilkat();

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

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

# Implements the following CURL command:

# curl -v -X POST https://example.com/v2/checkout/orders \
# -H "Content-Type: application/json" \
# -H "Authorization: Bearer Access-Token" \
# -H "Request-Id: 7b92603e-77ed-4896-8e78-5dea2050476a" \
# -d '{ 
#       "reference_id": "REFID-000-1001",
#       "amount": {
#         "currency_code": "CAD",
#         "value": "10.00"
#       }
#     }'

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

# Use this online tool to generate code from sample JSON:
# Generate Code to Create JSON

# The following JSON is sent in the request body.

# {
#   "reference_id": "REFID-000-1001",
#   "amount": {
#     "currency_code": "CAD",
#     "value": "10.00"
#   }
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateString("reference_id","REFID-000-1001");
$json->UpdateString("amount.currency_code","CAD");
$json->UpdateString("amount.value","10.00");

# Adds the "Authorization: Bearer Access-Token" header.
$http->put_AuthToken("Access-Token");
$http->SetRequestHeader("Request-Id","7b92603e-77ed-4896-8e78-5dea2050476a");
$http->SetRequestHeader("Content-Type","application/json");

# resp is a HttpResponse
$resp = $http->PostJson3("https://example.com/v2/checkout/orders","application/json",$json);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print $resp->get_StatusCode() . "\r\n";
print $resp->bodyStr() . "\r\n";