Perl

Example: JsonObject.NewArrayOf method

See more JSON Examples

Demonstrates the NewArrayOf method. Perl

use chilkat();

$success = 0;

$big_cats = "[\"lion\",\"tiger\",\"leopard\",\"jaguar\",\"cheetah\",\"snow leopard\",\"clouded leopard\",\"cougar\",\"puma\",\"panther\"]";

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

$json->UpdateString("test","abc");

$success = $json->NewArrayOf("big_cats",$big_cats);
if ($success == 0) {
    print $json->lastErrorText() . "\r\n";
    exit;
}

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

# Result:

# {
#   "test": "abc",
#   "big_cats": [
#     "lion",
#     "tiger",
#     "leopard",
#     "jaguar",
#     "cheetah",
#     "snow leopard",
#     "clouded leopard",
#     "cougar",
#     "puma",
#     "panther"
#   ]
# }