Perl

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.

Note: This example uses the new DecodeAndAppend method added in Chilkat v9.5.0.87.

Perl

use chilkat();

$success = 0;

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

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

# This is the URL encoding of the utf-8 representation.
$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.
$sb1 = chilkat::CkStringBuilder->new();
$success = $sb1->DecodeAndAppend($nameWindows1252UrlEncoded,"url","windows-1252");

$sb2 = chilkat::CkStringBuilder->new();
$success = $sb2->DecodeAndAppend($nameUtf8UrlEncoded,"url","utf-8");

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

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