(Perl) Decode Literal String

Decode a literal string. See Avoid Non-usascii Literal Strings in Source Code

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

use chilkat();

# It's best not to use non-usascii literal strings in source code.
# Instead, use a binary encoded representation of the string.

# This is the string "44ης Οδός, αρ.2" encoded as quoted-printable.
# Use Chilkat's online tool to prepare encoded strings: Online Binary Encoder
# Note: For strings that have very few us-ascii chars, it's better to use base64 encoding instead of quoted-printable.
$s = "44=CE=B7=CF=82 =CE=9F=CE=B4=CF=8C=CF=82, =CE=B1=CF=81.2";
$sb = chilkat::CkStringBuilder->new();
$sb->AppendEncoded($s,"quoted-printable");

# For programming languages where strings are exposed bytes, you can tell Chilkat globally
# to give you the utf-8 byte representation.
# For programming languages where strings are opaque objects, such as C#, it doesn't matter.
$glob = chilkat::CkGlobal->new();
$glob->put_DefaultUtf8(1);

$s = $sb->getAsString();