Perl Requires Chilkat v11.0.0+

Example: Http.HttpSReq method

Demonstrates how to call the HttpSReq method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $http = Chilkat2::Http->new;
my $req = Chilkat2::HttpRequest->new;
my $resp = Chilkat2::HttpResponse->new;

# Specify the details of the HTTP request.
$req->HttpVerb('POST');
$req->ContentType('application/json');
$req->Path('/echo_request_body.asp');

my $requestBody = '{"greeting":"Hello World"}';
$req->LoadBodyFromString($requestBody, 'utf-8');

# Send a POST to https://chilkatsoft.com/echo_request_body.asp with a JSON request body.
my $success = $http->HttpSReq('chilkatsoft.com', 443, 1, $req, $resp);
if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

print 'Response Status Code: ', $resp->StatusCode, "\n";

# Examine the request we sent.
# The LastHeader property stores the HTTP request header of the most recent request sent,
# and in this instance, the response body mirrors the request body.
print $http->LastHeader, "\n";
print $resp->BodyStr, "\n";

# Output:

# POST /echo_request_body.asp HTTP/1.1
# Host: chilkatsoft.com
# Content-Type: application/json
# Content-Length: 26
#
# {"greeting":"Hello World"}