Perl Requires Chilkat v11.4.0+

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"
#    ]
#  }