Perl

Firebase JSON Put and Patch

See more JSON Examples

Demonstrates how to apply Firebase put and patch events to a JSON database. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $json1 = '{"a": 1, "b": 2}';

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

# Use Firebase delimiters for JSON paths.
$json->DelimiterChar('/');

$json->Load($json1);
$json->FirebasePut('/c', '{"foo": true, "bar": false}');
# Output should be: {"a":1,"b":2,"c":{"foo":true,"bar":false}}
print '1) ', $json->Emit(), "\n";

$json->FirebasePut('/c', '"hello world"');
# Output should be: {"a":1,"b":2,"c":"hello world"}
print '2) ', $json->Emit(), "\n";

$json->FirebasePut('/c', '{"foo": "abc", "bar": 123}');
# Output should be: {"a":1,"b":2,"c":{"foo":"abc","bar":123}}
print '3) ', $json->Emit(), "\n";

# Back to the original..
$json->FirebasePut('/', '{"a": 1, "b": 2}');
print '4) ', $json->Emit(), "\n";

$json->FirebasePut('/c', '{"foo": true, "bar": false}');
$json->FirebasePatch('/c', '{"foo": 3, "baz": 4}');
# Output should be: {"a":1,"b":2,"c":{"foo":3,"bar":false,"baz":4}}
print '5) ', $json->Emit(), "\n";

$json->FirebasePatch('/c', '{"foo": "abc123", "baz": {"foo": true, "bar": false}, "bax": {"foo": 200, "bar": 400} }');
# Output should be: {"a":1,"b":2,"c":{"foo":"abc123","bar":false,"baz":{"foo":true,"bar":false},"bax":{"foo":200,"bar":400}}}
print '6) ', $json->Emit(), "\n";