Perl Requires Chilkat v9.5.0.92+

Keeping Query Params in a Hashtable

Demonstrates how to use a Chilkat Hashtable to hold query params and re-emit as a query param string. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $ht = Chilkat2::Hashtable->new;

# Add name/value pairs from an existing query param string where the values are already URL encoded.
my $qp = 'txt=this%20is%20a%20test&color=blue&fruits=apples%26oranges';
my $success = $ht->AddQueryParams($qp);

# Add some additional name/value pairs.
$ht->AddStr('name', 'Jack Sparrow');
$ht->AddStr('movie', 'Pirates of the Carribean');

# Iterate over the hash table to show what we have..

my $keys = Chilkat2::StringTable->new;
$ht->GetKeys($keys);
my $numKeys = $keys->Count;
my $key = '';
my $val = '';
my $i = 0;
while ($i < $numKeys) {
    $key = $keys->StringAt($i);
    $val = $ht->LookupStr($key);
    print $key, ' = ', $val, "\n";
    $i = $i + 1;
}

# Output for the above loop:

# color = blue
# name = Jack Sparrow
# fruits = apples&oranges
# txt = this is a test
# movie = Pirates of the Carribean

# Get all name/value pairs as a query parm string with values URL encoded
$qp = $ht->ToQueryString();
print $qp, "\n";

# Result:
# color=blue&name=Jack%20Sparrow&fruits=apples%26oranges&txt=this%20is%20a%20test&movie=Pirates%20of%20the%20Carribean