(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. Note: This example requires Chilkat v11.0.0 or greater.
use chilkat();
$success = 0;
# 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 = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST",$url,$jsonRequestBody,"utf-8","application/json",$resp);
if ($success == 0) {
print $http->lastErrorText() . "\r\n";
exit;
}
print "Response status code = " . $resp->get_StatusCode() . "\r\n";
$jsonResponseStr = $resp->bodyStr();
print $jsonResponseStr . "\r\n";
|