(Perl) HTTP POST with some Params in URL and others in application/x-www-form-urlencoded Body

Demonstrates show to send an HTTP POST with some params in the URL, and others in the application/x-www-form-urlencoded Body

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

use chilkat();

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

# Imagine a URL that contains two params: one named "xyz" and one named "name".
# We want to send a POST to it, but with 2 additional params in the body of the request.
# The PostUrlEncoded method cannot be used because it parses the URL and puts all the params
# in the HTTP body.  The SynchronousRequest method should instead be used so
# that the req.Path can be explicitly specified.
$url = "http://www.chilkatsoft.com/echoPost.asp?xyz=123&name=matt";

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

# Provide a session log path so we can visually verify the exact request sent.
# (This is only for debugging purposes.)
$http->put_SessionLogFilename("c:/aaworkarea/httpLog.txt");

# Create an HTTP request that has two additional params
$req = chilkat::CkHttpRequest->new();

$req->put_HttpVerb("POST");
$req->put_Path("/echoPost.asp?xyz=123&name=matt");
$req->AddParam("sport","tennis");
$req->AddParam("tournament","French Open");

# Send the HTTP POST and get the response.
# resp is a HttpResponse
$resp = $http->SynchronousRequest("www.chilkatsoft.com",80,0,$req);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print $resp->bodyStr() . "\r\n";

print "Success." . "\r\n";