Perl

JSON PathPrefix Example

Demonstrates the JSON object's PathPrefix property. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $success = 0;

my $json = Chilkat2::JsonObject->new;

$json->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->EmitCompact(0);

print $json->Emit(), "\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"
#     }
#   }
# }

my $city = $json->StringOf('city');
print 'city = ', $city, "\n";