Perl

Receive Bytes into a BinData

Demonstrates Socket.ReceiveBd, which receives one delivery of binary data and appends it to a BinData. It returns whatever is immediately available.

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;
}

#  Receive one delivery of binary data and append it to a BinData.  ReceiveBd returns whatever is
#  immediately available; it does not loop to drain everything that may follow.
$bd = chilkat::CkBinData->new();
$success = $socket->ReceiveBd($bd);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

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