Perl

Append Encoded Binary Data to StringBuilder

Demonstrates how to append encoded binary data to the contenets of a StringBuilder. Perl

use chilkat();

$success = 0;

$bd = chilkat::CkBinData->new();

$success = $bd->LoadFile("qa_data/jpg/starfish.jpg");
if ($success == 0) {
    print "Failed to load file." . "\r\n";
    exit;
}

# For example, let's say we want construct simple JSON containing the base64 representation of the above JPG file.
$sb = chilkat::CkStringBuilder->new();
$sb->Append("{ \"jpg\": \"");
# GetEncodedSb appends the enocded representation of the binary data to the StringBuiler passed in the 2nd arg.
$bd->GetEncodedSb("base64",$sb);
$sb->Append("\" }");

print $sb->getAsString() . "\r\n";

# Output looks like this:
#  { "jpg": "/9j/4AAQSkZJRgABAg...rcQ+vo//2Q==" }