Perl

JSON PathPrefix Example

Demonstrates the JSON object's PathPrefix property. Perl

use chilkat();

$success = 0;

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

$json->put_PathPrefix("company.billing.");

$json->UpdateString("company_name","TechNova Solutions Inc.");
$json->UpdateString("address_line_1","123 Innovation Drive");
$json->UpdateString("address_line_2","Suite 450");
$json->UpdateString("city","Seattle");
$json->UpdateString("state_province","WA");
$json->UpdateString("postal_code","98101");
$json->UpdateString("country","USA");

$json->put_EmitCompact(0);

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

# Result:

# {
#   "company": {
#     "billing": {
#       "company_name": "TechNova Solutions Inc.",
#       "address_line_1": "123 Innovation Drive",
#       "address_line_2": "Suite 450",
#       "city": "Seattle",
#       "state_province": "WA",
#       "postal_code": "98101",
#       "country": "USA"
#     }
#   }
# }

$city = $json->stringOf("city");
print "city = " . $city . "\r\n";