Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#C# WinRTDelphi ActiveXDelphi DLLVisual FoxProJavaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerShellPythonRubySQL ServerUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET WinRTVBScript

Perl Examples

Certificates
Email Object
Encryption
FTP
HTML-to-XML/Text
Gzip
HTTP
IMAP
MHT / HTML Email
PFX/P12
Java KeyStore (JKS)
POP3
RSA Encryption
MIME
SMTP
Socket/SSL/TLS
SSH Key
SSH
SFTP
Tar Archive
XML
XMP
Zip

More Examples...
Amazon S3
Bounced Email
CSV
Diffie-Hellman
DKIM / DomainKey
NTLM

 

 

 

 

 

 

 

(Perl) HTTP PUT JSON

Demonstrates how to send a JSON PUT and get the JSON response body.

Chilkat Perl Downloads

Perl Module for Windows, Linux, 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;
}

#  The PUT request to be sent will look like this:
#  
PUT /request HTTP/1.1
Content-Type: application/jsonrequest
Cookie: JSESSIONID=1234
Content-Encoding: identity
Host: json.penzance.org
Accept: application/jsonrequest
Accept-Encoding:
Content-Length: 72

{"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"); # Add the Content-Encoding: identity header. $http->AddQuickHeader("Content-Encoding","identity"); # Modify the default "Accept" header: $http->put_Accept("application/jsonrequest"); $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. $responseBody = $http->putText("http://json.penzance.org/request",$jsonText,"utf-8","application/jsonrequest",0,0); if ($responseBody eq null ) { print $http->lastErrorText() . "\r\n"; } else { # Display the JSON response. print $responseBody . "\r\n"; }
 

© 2000-2014 Chilkat Software, Inc. All Rights Reserved.