(Perl) Firebase JSON Put and Patch

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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

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

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

# Use Firebase delimiters for JSON paths.
$json->put_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() . "\r\n";

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

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

# Back to the original..
$json->FirebasePut("/","{\"a\": 1, \"b\": 2}");
print "4) " . $json->emit() . "\r\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() . "\r\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() . "\r\n";