Perl

StringBuilder Encode Charset

Demonstrates the importance of the charset argument when encoding/decoding. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $s = 'é é é';

my $sb = Chilkat2::StringBuilder->new;

$sb->Append($s);
$sb->EntityDecode();

# The string now contains: "é é é"
print $sb->GetAsString(), "\n";

# If encoded to hex using the iso-8859-1 charset,
# each é char is represented in 1 byte.
# Output: E920E920E9
print $sb->GetEncoded('hex', 'iso-8859-1'), "\n";

# If encoded to hex using the utf-8 charset,
# each é char is represented in 2 bytes.
# Output: C3A920C3A920C3A9
print $sb->GetEncoded('hex', 'utf-8'), "\n";

# Here's utf-16
# Output: E9002000E9002000E900
print $sb->GetEncoded('hex', 'utf-16'), "\n";

# utf-32
# Output: E900000020000000E900000020000000E9000000
print $sb->GetEncoded('hex', 'utf-32'), "\n";