Perl

Demonstrate HttpRequest.RemoveAllParams

Demonstrates the effect of calling HttpRequest.RemoveAllParams. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $req = Chilkat2::HttpRequest->new;

$req->HttpVerb('POST');
$req->Path('/test123');
$req->ContentType('application/x-www-form-urlencoded');
$req->AddParam('paramA', 'AAA');
$req->AddParam('paramB', 'BBB');
$req->AddParam('paramC', 'CCC');

print $req->GenerateRequestText(), "\n";
print "---------------\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(), "\n";
print "---------------\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