Perl

Appending Strings to BinData

Demonstrates appending strings to a BinData.. Perl

use chilkat();

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

# Append a string using a 1-byte per char encoding
$binData1->AppendString("This is a test","windows-1252");
print $binData1->getEncoded("hex") . "\r\n";
# The bytes contained within the binData1 (in hex) are: 54,68,69,73,20,69, ...

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

# Append a string using a 2-byte per char encoding
$binData2->AppendString("This is a test","utf-16");
print $binData2->getEncoded("hex") . "\r\n";
# The bytes contained within the binData2 (in hex) are: 54,00,68,00,69,00,73,00,20,00,69,00, ...