Perl Requires Chilkat v11.0.0+

URL Encoding Charset in POST Query Params

See more HTTP Examples

Demonstrates how to control the URL encoding charset in POST query params. Perl

use chilkat();

$success = 0;

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

#  We have the string "MÆRSK".
$nameWin1252Encoded = "M%E6RSK";

$sb = chilkat::CkStringBuilder->new();
$success = $sb->DecodeAndAppend($nameWin1252Encoded,"url","windows-1252");

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

#  We're setting the session log filename so we can see the exact request sent.
$http->put_SessionLogFilename("qa_output/sessionLog.txt");

#  First demonstrate a simple application/x-www-form-urlencoded POST

$req = chilkat::CkHttpRequest->new();

#  Set the Charset = "utf-8" to cause URL encoding to use utf-8.
$req->put_Charset("utf-8");

$req->AddParam("name",$sb->getAsString());

$req->put_HttpVerb("POST");
$req->put_ContentType("application/x-www-form-urlencoded");

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpReq("https://www.chilkatsoft.com/something",$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  This is the request that is sent:
#  Notice that utf-8 is used in the query param (the letter 'Æ' is %C3%A6)

#  	POST /something HTTP/1.1
#  	Host: www.chilkatsoft.com
#  	Content-Type: application/x-www-form-urlencoded
#  	Content-Length: 15
#  
#  	name=M%C3%A6RSK

#  ---------------------------------------------------------------
#  Switch to windows-1252

$req->put_Charset("windows-1252");
$req->put_HttpVerb("POST");
$req->put_ContentType("application/x-www-form-urlencoded");

$success = $http->HttpReq("https://www.chilkatsoft.com/something",$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  This is the request that is sent:
#  Notice that windows-1252 is used in the query param (the letter 'Æ' is %E6)

#  	POST /something HTTP/1.1
#  	Host: www.chilkatsoft.com
#  	Content-Type: application/x-www-form-urlencoded
#  	Content-Length: 12
#  
#  	name=M%E6RSK

#  ---------------------------------------------------------------
#  Let's do the same with HttpSReq, switching back to utf-8

$req->put_Path("/something");
$req->put_HttpVerb("POST");
$req->put_ContentType("application/x-www-form-urlencoded");

$req->put_Charset("utf-8");
$success = $http->HttpSReq("www.chilkatsoft.com",443,1,$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  This is the request that is sent:
#  Notice that utf-8 is used in the query param (the letter 'Æ' is %C3%A6)

#  	POST /something HTTP/1.1
#  	Host: www.chilkatsoft.com
#  	Content-Type: application/x-www-form-urlencoded
#  	Content-Length: 15
#  
#  	name=M%C3%A6RSK

#  ---------------------------------------------------------------
#  Let's do a POST with XML body where the query params are in the HTTP request start line, 
#  and the Content-Type is text/xml where the body of the request is XML.

$req->put_Path("/something");
$req->put_HttpVerb("POST");
$req->put_ContentType("text/xml");
$success = $req->LoadBodyFromString("<test>123</test>","utf-8");
$req->put_Charset("utf-8");

#  Remember... our request object still contains the query param added in the above call to AddParam.
$success = $http->HttpSReq("www.chilkatsoft.com",443,1,$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  This is the request that is sent:
#  Notice that utf-8 is used in the query param (the letter 'Æ' is %C3%A6)

#  	POST /something?name=M%C3%A6RSK HTTP/1.1
#  	Host: www.chilkatsoft.com
#  	Content-Type: text/xml
#  	Content-Length: 16
#  
#  	<test>123</test>