Perl

Send BinData Contents over a Socket

Demonstrates Socket.SendBd, which sends bytes from a BinData beginning at an offset. A numBytes of 0 sends from the offset through the end of the data.

Background. The BinData receive methods accumulate raw bytes in a BinData object. A single receive returns only what is currently available, whereas the counted receive waits for an exact number of bytes.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

$socket = chilkat::CkSocket->new();

#  Connect to the server using TLS.
$bTls = 1;
$maxWaitMs = 5000;
$success = $socket->Connect("example.com",5000,$bTls,$maxWaitMs);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

#  Place some bytes into a BinData to be sent.
$bd = chilkat::CkBinData->new();
$bd->AppendString("message payload","utf-8");

#  Send bytes from the BinData starting at the given offset.  A numBytes of 0 sends from the offset
#  through the end of the data.
$success = $socket->SendBd($bd,0,0);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

print "Sent " . $bd->get_NumBytes() . " bytes." . "\r\n";