Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftTclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcel

Perl Examples

ASN.1
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Async
Azure Cloud Storage
Azure Service Bus
Bounced Email
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
ECC
Email Object
Encryption
FTP
Facebook
Firebase
GeoOp
Google APIs
Google Cloud Storage
Google Drive
Gzip
HTML-to-XML/Text
HTTP
HTTP Misc

IMAP
JSON
Java KeyStore (JKS)
Jwt
MHT / HTML Email
MIME
NTLM
OAuth1
OAuth2
OpenSSL
PEM
PFX/P12
POP3
PRNG
PayPal
Peoplevox
QuickBooks
REST
RSA Encryption
SCP
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
Socket/SSL/TLS
Spider
Stream
Tar Archive
Twitter
XML
XMP
Xero
Zip
curl

 

 

 

(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, Solaris, and FreeBSD

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: $success = $http->AddQuickHeader("Cookie","JSESSIONID=1234"); # Add the Content-Encoding: identity header. $success = $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 ($http->get_LastMethodSuccess() != 1) { print $http->lastErrorText() . "\r\n"; } else { # Display the JSON response. print $responseBody . "\r\n"; }
 

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