Perl

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.

Note: The ToQueryString method was added in Chilkat v9.5.0.92.

Perl

use chilkat();

$success = 0;

$ht = chilkat::CkHashtable->new();

# Add name/value pairs from an existing query param string where the values are already URL encoded.
$qp = "txt=this%20is%20a%20test&color=blue&fruits=apples%26oranges";
$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..

$keys = chilkat::CkStringTable->new();
$ht->GetKeys($keys);
$numKeys = $keys->get_Count();

$i = 0;
while ($i < $numKeys) {
    $key = $keys->stringAt($i);
    $val = $ht->lookupStr($key);
    print $key . " = " . $val . "\r\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 . "\r\n";

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