Perl Requires Chilkat v9.5.0.64+

Demonstrate Binary Data Encoding Methods

Demonstrates binary data encoding methods. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# Append 10 bytes: 00, 01, 02, 03, 04, 05, 06, 07, 08, 09
$binData->AppendEncoded('00010203040506070809', 'hex');

# Show that binData contains 10 bytes.
print 'num bytes = ', $binData->NumBytes, "\n";

# Get as base64
print 'base64: ', $binData->GetEncoded('base64'), "\n";

# Get a chunk of the binary data.
# The 1st byte is at index 0.
# The output should be "02030405"
my $offset = 2;
my $numBytes = 4;
print 'chunk: ', $binData->GetEncodedChunk($offset, $numBytes, 'hex'), "\n";

# Copy the bytes to a StringBuilder using the base64url encoding
my $sb = Chilkat2::StringBuilder->new;
$binData->GetEncodedSb('base64url', $sb);
print 'base64url: ', $sb->GetAsString(), "\n";

# Remove a chunk from the binary data
$offset = 2;
$numBytes = 4;
$binData->RemoveChunk($offset, $numBytes);
# The bytes remaining are 00,01,06,07,08,and 09
print 'after removing chunk: ', $binData->GetEncoded('hex'), "\n";