Perl Requires Chilkat v11.0.0+

Example: Http.HttpReq method

Demonstrates how to call the HttpReq method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $http = Chilkat2::Http->new;
my $success = 0;

# This example will send an HTTP POST with the body of the HTTP request containing JSON.

# Create the following JSON: { "name": "Harry", "state": "FL" }

my $json = Chilkat2::JsonObject->new;
$json->UpdateString('name', 'Harry');
$json->UpdateString('state', 'FL');

# Specify the details of the request
my $req = Chilkat2::HttpRequest->new;

$req->HttpVerb('POST');
$req->ContentType('application/json');
$req->LoadBodyFromString($json->Emit(), 'utf-8');

# Send the charset attribute in the HTTP request header.
$req->SendCharset(1);
$req->Charset('utf-8');

# Send the POST
# You can send the POST to the URL below.
# The response will contain the raw body of the request that was sent.
# (i.e. everything except the HTTP request header).

my $resp = Chilkat2::HttpResponse->new;
$success = $http->HttpReq('https://www.chilkatsoft.com/echo_request_body.asp', $req, $resp);
if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

# Examine the HTTP request header we sent:
print $http->LastHeader, "\n";

# The response body contains the raw content of the HTTP request body we sent.
print $resp->BodyStr, "\n";

# Sample output:

# POST /echo_request_body.asp HTTP/1.1
# Host: www.chilkatsoft.com
# Content-Type: application/json; charset=utf-8
# Content-Length: 29
#
#
# {"name":"Harry","state":"FL"}