Perl

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"
# }