(Perl) HTTP POST JSON

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

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$req = new chilkat::CkHttpRequest();
$http = new chilkat::CkHttp();

#  Any string unlocks the component for the 1st 30 days.
$success = $http->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  This example duplicates the HTTP POST shown at
#  http://json.org/JSONRequest.html

#  Specifically, the request to be sent looks like this:
#  
POST /request HTTP/1.1
Accept: application/jsonrequest
Content-Encoding: identity
Content-Length: 72
Content-Type: application/jsonrequest
Host: json.penzance.org

{"user":"doctoravatar@penzance.com","forecast":7,"t":"vlIj","zip":94089}


#  First, remove default header fields that would be automatically
#  sent.  (These headers are harmless, and shouldn't need to
#  be suppressed, but just in case...)
$http->put_AcceptCharset("");
$http->put_UserAgent("");
$http->put_AcceptLanguage("");
#  Suppress the Accept-Encoding header by disallowing
#  a gzip response:
$http->put_AllowGzip(0);

#  If a Cookie needs to be added, it may be added by calling
#  AddQuickHeader:
$http->AddQuickHeader("Cookie","JSESSIONID=1234");

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

#  To use SSL/TLS, simply use "https://" in the URL.

#  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 is a CkHttpResponse
$resp = $http->PostJson("http://json.penzance.org/request",$jsonText);
if ($resp eq null ) {
    print $http->lastErrorText() . "\r\n";
}
else {
    #  Display the JSON response.
    print $resp->bodyStr() . "\r\n";
}