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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $socket = Chilkat2::Socket->new;

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

# Place some bytes into a BinData to be sent.
my $bd = Chilkat2::BinData->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) {
    print $socket->LastErrorText, "\n";
    exit;
}

print 'Sent ', $bd->NumBytes, " bytes.\n";