Perl

HTTP POST JSON

See more HTTP Examples

Demonstrates how to send a JSON POST and get the JSON response. Perl

use chilkat();

$success = 0;

# This requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code

$http = chilkat::CkHttp->new();

$jsonText = '{\'user\':\'doctoravatar@penzance.com\',\'forecast\':7,\'t\':\'vlIj\',\'zip\':94089}';

# IMPORTANT: Make sure to change the URL, JSON text,
# and other data items to your own values.  The URL used
# in this example will not actually work.

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST","https://json.penzance.org/request",$jsonText,"utf-8","application/json",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Display the JSON response.
print $resp->bodyStr() . "\r\n";