(Perl) Demonstrate HttpRequest.RemoveAllParams

Demonstrates the effect of calling HttpRequest.RemoveAllParams.

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

use chilkat();

$req = chilkat::CkHttpRequest->new();

$req->put_HttpVerb("POST");
$req->put_Path("/test123");
$req->put_ContentType("application/x-www-form-urlencoded");
$req->AddParam("paramA","AAA");
$req->AddParam("paramB","BBB");
$req->AddParam("paramC","CCC");

print $req->generateRequestText() . "\r\n";
print "---------------" . "\r\n";

# Generates: 

# 	POST /test123 HTTP/1.1
# 	Content-Type: application/x-www-form-urlencoded
# 	Host: domain
# 	Content-Length: 32
# 
# 	paramA=AAA&paramB=BBB&paramC=CCC
# 

# If we call RemoveAllParams, and then add some additional params,
# then the original params are gone, and only the new params exist.
$req->RemoveAllParams();
$req->AddParam("paramD","DDD");
$req->AddParam("paramE","EEE");
$req->AddParam("paramF","FFF");
print $req->generateRequestText() . "\r\n";
print "---------------" . "\r\n";

# Generates:

# 	POST /test123 HTTP/1.1
# 	Content-Type: application/x-www-form-urlencoded
# 	Host: domain
# 	Content-Length: 32
# 
# 	paramD=DDD&paramE=EEE&paramF=FFF