(Perl) JSON Escape and Unescape a String

Demonstrates how to JSON escape or unescape a string.

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

use chilkat();

$sb = chilkat::CkStringBuilder->new();

$sb->Append("backslash: \\\\, A: \\u0041");
print $sb->getAsString() . "\r\n";

# The output is:
#    backslash: \\, A: \u0041

# The keyword "json" can be used
# to escape and unescape.  To escape is to encode.  To unescape is to decode.

# Unescape (decode) the string in sb.
$sb->Decode("json","utf-8");
print $sb->getAsString() . "\r\n";

# After JSON unescaping:
#    backslash: \, A: A

# Now JSON escape the string.
$sb->Encode("json","utf-8");
print $sb->getAsString() . "\r\n";

# After JSON escaping:
#    backslash: \\, A: A

# Note: The "A" is not escaped to "\u0041" because there is no need.
# The "\uXXXX" format would be produced for non-printable control chars.