Perl
Perl
Receive an Exact Number of Bytes as Encoded Text
See more Socket/SSL/TLS Examples
Demonstrates Socket.ReceiveNBytesENC, which receives exactly the requested number of bytes and returns them encoded using a named encoding. It waits until the full count is received.
Background. Inactivity is controlled by
MaxReadIdleMs: the call fails if incoming bytes halt for longer than MaxReadIdleMs milliseconds before the full amount is received. The ENC methods move raw binary data to and from printable text using a named encoding such as base64 or hex.Chilkat Perl Downloads
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;
}
# MaxReadIdleMs controls the inactivity limit for receiving. The ReceiveNBytesENC call will fail if
# incoming bytes halt for longer than this many milliseconds before the full amount is received.
$socket->put_MaxReadIdleMs(15000);
# Receive exactly the requested number of bytes and return them encoded using the named encoding.
# Unlike ReceiveBytesENC, this waits until the full count has been received.
$hex = $socket->receiveNBytesENC(16,"hex");
if ($socket->get_LastMethodSuccess() == 0) {
print $socket->lastErrorText() . "\r\n";
exit;
}
print $hex . "\r\n";