Perl

Append Encoded Binary Data to StringBuilder

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

use strict;
use warnings;
use Chilkat2;

my $bd = Chilkat2::BinData->new;

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

# For example, let's say we want construct simple JSON containing the base64 representation of the above JPG file.
my $sb = Chilkat2::StringBuilder->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(), "\n";

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