Perl

JSON Append String Array

See more JSON Examples

Demonstrates how to append an array of strings from a string table object.

Note: This example uses the AppendStringTable method, which was introduced in Chilkat v9.5.0.67

Perl

use chilkat();

$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);

$json->AppendString("abc","123");

$st = chilkat::CkStringTable->new();
$st->Append("a");
$st->Append("b");
$st->Append("c");
$st->Append("d");

$json->AppendStringArray("strArray",$st);

print $json->emit() . "\r\n";

# Output:

# 	{
# 	  "abc": "123",
# 	  "strArray": [
# 	    "a",
# 	    "b",
# 	    "c",
# 	    "d"
# 	  ]
# 	}