Perl Requires Chilkat v9.5.0.77+

Append Big-Endian or Little-Endian Integers

Demonstrates how to append integers in big-endian or little-endian byte order to a BinData. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# The hex value of decimal 123456789 is 0x075BCD15
my $x = 123456789;

# Appending little-endian causes bytes to be
# appended in the order 0x15, 0xCD, 0x5B, 0x07
my $littleEndian = 1;
my $success = $bd->AppendInt4($x, $littleEndian);

print $bd->GetEncoded('hex'), "\n";
# Output is: 15CD5B07

# Now append the same integer in big-endian byte order.
# Appending bit-endian causes bytes to be
# appended in the order 0x07, 0x5B, 0xCD, 0x15
$littleEndian = 0;
$bd->AppendInt4($x, $littleEndian);

print $bd->GetEncoded('hex'), "\n";
# bd now contains: 15CD5B07075BCD15

# -------------------------------------------
# Now do the same thing with 16-bit integers
$bd->Clear();

# 1234 decimal = 0x04D2 hex.
$x = 1234;

$littleEndian = 1;
$bd->AppendInt2($x, $littleEndian);

print $bd->GetEncoded('hex'), "\n";
# Output is: D204

$littleEndian = 0;
$bd->AppendInt2($x, $littleEndian);

print $bd->GetEncoded('hex'), "\n";
# Output is now: D20404D2