Perl Requires Chilkat v11.5.0+

curl POST with JSON Input and JSON Output

See more CURL Examples

Demonstrates running a simple curl command with JSON input and JSON output. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Run the following curl command

#  curl -X POST https://httpbin.org/post \
#       -H "Content-Type: application/json" \
#       -d '{
#             "title": "foo",
#             "body": "bar",
#             "userId": 1
#           }'

# The backslashes at the end of lines are not required.  Chilkat ignores them if present.
my $sbTargetCurl = Chilkat2::StringBuilder->new;
$sbTargetCurl->AppendLn(' curl -X POST https://httpbin.org/post \\');
$sbTargetCurl->AppendLn('      -H "Content-Type: application/json" \\');
$sbTargetCurl->AppendLn('      -d \'{');
$sbTargetCurl->AppendLn('            "title": "foo",');
$sbTargetCurl->AppendLn('            "body": "bar",');
$sbTargetCurl->AppendLn('            "userId": 1');
$sbTargetCurl->AppendLn('          }\'');

my $httpCurl = Chilkat2::HttpCurl->new;

# Run the curl command.
my $success = $httpCurl->DoYourThing($sbTargetCurl->GetAsString());
if (!$success) {
    print $httpCurl->LastErrorText, "\n";
    exit;
}

my $responseJson = Chilkat2::JsonObject->new;
$responseJson->EmitCompact(0);

$httpCurl->GetResponseJson($responseJson);

my $statusCode = $httpCurl->StatusCode;
print 'response status code: ', $statusCode, "\n";

print $responseJson->Emit(), "\n";

# Output:

# response status code: 200
# {
#   "args": {},
#   "data": "{\r\n            \"title\": \"foo\",\r\n            \"body\": \"bar\",\r\n            \"userId\": 1\r\n          }",
#   "files": {},
#   "form": {},
#   "headers": {
#     "Content-Length": "96",
#     "Content-Type": "application/json",
#     "Host": "httpbin.org",
#     "X-Amzn-Trace-Id": "Root=1-69e8db8b-459b3bdf7b7a3bc749184968"
#   },
#   "json": {
#     "body": "bar",
#     "title": "foo",
#     "userId": 1
#   },
#   "origin": "123.222.222.222",
#   "url": "https://httpbin.org/post"
# }

# ----------------------------------------------------------------------------------
# Another example:

# curl -X POST https://postman-echo.com/post \
#      -H "Content-Type: application/json" \
#      -d '{"foo":"bar"}'

my $targetCurl = 'curl -X POST https://postman-echo.com/post -H "Content-Type: application/json" -d \'{"foo":"bar"}\'';

# Run the curl command.
$success = $httpCurl->DoYourThing($targetCurl);
if (!$success) {
    print $httpCurl->LastErrorText, "\n";
    exit;
}

$httpCurl->GetResponseJson($responseJson);

$statusCode = $httpCurl->StatusCode;
print 'response status code: ', $statusCode, "\n";

print $responseJson->Emit(), "\n";

# Output:

# response status code: 200
# {
#   "args": {},
#   "data": {
#     "foo": "bar"
#   },
#   "files": {},
#   "form": {},
#   "headers": {
#     "host": "postman-echo.com",
#     "content-length": "13",
#     "content-type": "application/json",
#     "x-forwarded-proto": "https",
#     "accept-encoding": "gzip, br"
#   },
#   "json": {
#     "foo": "bar"
#   },
#   "url": "https://postman-echo.com/post"
# }