Perl Requires Chilkat v11.0.0+

Example: Http.HttpParams method

Demonstrates the HttpParams method. Perl

use chilkat();

$success = 0;

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

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

#  Demonstrate sending a GET request with query parameters.
$queryParams = chilkat::CkJsonObject->new();
$queryParams->UpdateInt("limit",100);
$queryParams->UpdateString("email",'joe@example.com');
$queryParams->UpdateString("token","VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4=");

#  Set a session log filename so we can examine the exact request that is sent.
$sessionLogPath = "c:/temp/qa_output/sessionLog.txt";
$http->put_SessionLogFilename($sessionLogPath);

#  Send the GET request to an endpoint.  We don't care about the response. The purpose of this example
#  is to see the exact HTTP request that is sent..
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpParams("GET","https://chilkatsoft.com/echo_request_body.asp",$queryParams,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$fac = chilkat::CkFileAccess->new();
$sessionLog = $fac->readEntireTextFile($sessionLogPath,"utf-8");
print $sessionLog . "\r\n";
$success = $fac->FileDelete($sessionLogPath);

#  This is the exact GET request that was sent.
#  Notice how each query parameter is URL encoded and added to the HTTP start line of the request.

#  GET /echo_request_body.asp?limit=100&email=joe%40example.com&token=VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4%3D HTTP/1.1
#  Host: chilkatsoft.com
#  Accept: */*
#  Accept-Encoding: gzip