Perl Requires Chilkat v9.5.0.87+

Decode from Binary Encoding and Append String

Demonstrates how to decode from a binary encoding (base64, hex, url, etc.) and then append the decoded string to a Chilkat StringBuilder object. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# We have the string "MÆRSK" in two forms:

# This is the URL encoding of the windows-1252 representation.
my $nameWindows1252UrlEncoded = 'M%C6RSK';

# This is the URL encoding of the utf-8 representation.
my $nameUtf8UrlEncoded = 'M%C3%86RSK';

# Note that the result of loading a string into a string object
# is the same if we correctly specify the underlying charset encoding.
# In the above example, we have the same string, but in different charset encodings
# subsequently URL encoded.
my $sb1 = Chilkat2::StringBuilder->new;
my $success = $sb1->DecodeAndAppend($nameWindows1252UrlEncoded, 'url', 'windows-1252');

my $sb2 = Chilkat2::StringBuilder->new;
$success = $sb2->DecodeAndAppend($nameUtf8UrlEncoded, 'url', 'utf-8');

# sb1 and sb2 both hold the same string.
my $bEqual = $sb1->ContentsEqualSb($sb2, 1);
print 'bEqual = ', ($bEqual ? 1 : 0), "\n";

# We can see the string is "MÆRSK" in both cases.
print $sb1->GetAsString(), "\n";
print $sb2->GetAsString(), "\n";