Data Serialization Concepts

JSON-Like Strings

Build a tiny object-shaped string from scalar values.

json-like-string Object-shaped text uses names, punctuation, and scalar values in a predictable order.

JSON-Like Strings

enabled
json_like_strings.pl
Replay: real traced execution (multi-file project)
use strict;
use warnings;

my $enabled = 1;
my $flag = $enabled ? "true" : "false";
my $encoded = "{enabled:$flag,count:2}";

print "enabled=$enabled\n";
print "flag=$flag\n";
print "encoded=$encoded\n";

use strict;
use warnings;

my $enabled = 0;
my $flag = $enabled ? "true" : "false";
my $encoded = "{enabled:$flag,count:2}";

print "enabled=$enabled\n";
print "flag=$flag\n";
print "encoded=$encoded\n";

  1. $enabled ← 1, $flag ← true, $encoded ← {enabled:true,count:2}

    4my $enabled→ 1 = 1; #@enabled=05my $flag→ true = $enabled1 ? "true" : "false";6my $encoded→ {enabled:true,count:2} = "{enabled:$flagtrue,count:2}";78print "enabled=$enabled1\n";9print "flag=$flagtrue\n";10print "encoded=$encoded{enabled:true,count:2}\n";
    outputenabled=1
flag=true
encoded={enabled:true,count:2}

  1. $enabled ← 0, $flag ← false, $encoded ← {enabled:false,count:2}

    4my $enabled→ 0 = 0;5my $flag→ false = $enabled0 ? "true" : "false";6my $encoded→ {enabled:false,count:2} = "{enabled:$flagfalse,count:2}";78print "enabled=$enabled0\n";9print "flag=$flagfalse\n";10print "encoded=$encoded{enabled:false,count:2}\n";
    outputenabled=0
flag=false
encoded={enabled:false,count:2}