(Perl) POST application/json HTTPS Request

Demonstrates how to send an HTTPS POST where the request body and response body both have the application/json Content-Type. Also demonstrates how to add a few custom headers to the request.

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

use chilkat();

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

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

# Add a few custom headers.
$http->SetRequestHeader("Client-ID","my_client_id");
$http->SetRequestHeader("Client-Token","my_client_token");

$http->put_Accept("application/json");

$url = "https://api.fiscallog.eu/sign/v1";
$jsonRequestBody = "{ .... }";
# resp is a HttpResponse
$resp = $http->PostJson2($url,"application/json",$jsonRequestBody);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

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

print $jsonResponseStr . "\r\n";