Perl Requires Chilkat v9.5.0.64+

Serialize / Deserialize Hashtable to/from XML

Demonstrates how to seralize / deserialize a Hashtable to/from XML. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Add some entries to a hashtable.
my $hashTab = Chilkat2::Hashtable->new;

$hashTab->AddStr('aaa', '111');
$hashTab->AddStr('bbb', '222');
$hashTab->AddStr('ccc', '333');

# Serialize to XML
my $sb = Chilkat2::StringBuilder->new;
$hashTab->ToXmlSb($sb);
print $sb->GetAsString(), "\n";
print "---\n";

# The output is as follows.  Each hash table entry
# is contained in an "e" node.  The entry's key
# is in the "k" node, and the value in the "v" node.

# <?xml version="1.0" encoding="utf8-8"?>
# <hashtable>
# <e><k>aaa</k><v>111</v></e>
# <e><k>bbb</k><v>222</v></e>
# <e><k>ccc</k><v>333</v></e>
# </hashtable>
#

# Now load (deserialize) into a new hash table.
my $hashTab2 = Chilkat2::Hashtable->new;
$hashTab2->AddFromXmlSb($sb);

# Get the hash table keys, and lookup each (to show
# that the hash table was correctly deserialized).
# The GetKeys method can return the keys in any order.
my $sTable = Chilkat2::StringTable->new;
$hashTab2->GetKeys($sTable);

my $i = 0;
my $numKeys = $sTable->Count;
while ($i < $numKeys) {
    my $key = $sTable->StringAt($i);
    print $key, ': ', $hashTab2->LookupStr($key), "\n";
    $i = $i + 1;
}