(Perl) HTTPS GET URL with URL Encoded Query Params

Creates a URL with URL encoded query params, and sends an HTTPS GET to the URL.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

# Create a URL with URL-encoded query params.
$sbUrl = chilkat::CkStringBuilder->new();
$sbUrl->Append("https://www.example.com/something?");

# If we know a query param value does not have any special chars requiring URL encoding,
# just add it.  In this case, there is no need to URL encode "123" because "123" url encoded is still just "123".
$sbUrl->Append("abc=123&xyz=");

$sbValue = chilkat::CkStringBuilder->new();
$sbValue->Append("this is a test");

$sbUrl->Append("msg=");
$sbUrl->Append($sbValue->getEncoded("url","utf-8"));

# sbUrl contains:  https://www.example.com/something?abc=123&xyz=msg=this%20is%20a%20test
print $sbUrl->getAsString() . "\r\n";

# Send the GET request and get the response body, which is assumed to be text of some sort (HTML, XML, JSON, etc.)
# (Chilkat automatically decompresses gzipped responses)
$http = chilkat::CkHttp->new();
$responseBody = $http->quickGetStr($sbUrl->getAsString());
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response Body:" . "\r\n";
print $responseBody . "\r\n";