Perl

HTTPS GET URL with URL Encoded Query Params

See more HTTP Examples

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

use strict;
use warnings;
use Chilkat2;

my $success = 0;

# 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.
my $sbUrl = Chilkat2::StringBuilder->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=');

my $sbValue = Chilkat2::StringBuilder->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(), "\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)
my $http = Chilkat2::Http->new;
my $responseBody = $http->QuickGetStr($sbUrl->GetAsString());
if (!$http->LastMethodSuccess) {
    print $http->LastErrorText, "\n";
    exit;
}

print "Response Body:\n";
print $responseBody, "\n";