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. Perl

use chilkat();

$success = 0;

#  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.
$sbTargetCurl = chilkat::CkStringBuilder->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("          }'");

$httpCurl = chilkat::CkHttpCurl->new();

#  Run the curl command.
$success = $httpCurl->DoYourThing($sbTargetCurl->getAsString());
if ($success == 0) {
    print $httpCurl->lastErrorText() . "\r\n";
    exit;
}

$responseJson = chilkat::CkJsonObject->new();
$responseJson->put_EmitCompact(0);

$httpCurl->GetResponseJson($responseJson);

$statusCode = $httpCurl->get_StatusCode();
print "response status code: " . $statusCode . "\r\n";

print $responseJson->emit() . "\r\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"}'

$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 == 0) {
    print $httpCurl->lastErrorText() . "\r\n";
    exit;
}

$httpCurl->GetResponseJson($responseJson);

$statusCode = $httpCurl->get_StatusCode();
print "response status code: " . $statusCode . "\r\n";

print $responseJson->emit() . "\r\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"
#  }