Perl Requires Chilkat v11.0.0+

Example: Http.HttpParams method

Demonstrates the HttpParams method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $http = Chilkat2::Http->new;

# Demonstrate sending a GET request with query parameters.
my $queryParams = Chilkat2::JsonObject->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.
my $sessionLogPath = 'c:/temp/qa_output/sessionLog.txt';
$http->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..
my $resp = Chilkat2::HttpResponse->new;
my $success = $http->HttpParams('GET', 'https://chilkatsoft.com/echo_request_body.asp', $queryParams, $resp);
if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

my $fac = Chilkat2::FileAccess->new;
my $sessionLog = $fac->ReadEntireTextFile($sessionLogPath, 'utf-8');
print $sessionLog, "\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