Perl

TCP Socket Send Byte and Receive Byte

Demonstrates the Chilkat Socket ReceiveByte and SendByte method. Perl

use chilkat();

$success = 0;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# --------------------------------------------------------------------
# This example uses the public TCP echo service at https://tcpbin.com/
# --------------------------------------------------------------------

$useTls = 0;
$port = 4242;
$maxWaitMs = 5000;
$success = $sock->Connect("tcpbin.com",$port,$useTls,$maxWaitMs);
if ($success == 0) {
    print $sock->lastErrorText() . "\r\n";
    exit;
}

# Wait a max of 2 seconds for a response..
$sock->put_MaxReadIdleMs(2000);

# Send a byte.
$sock->SendByte(96);

# The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
$sock->SendByte(10);

# The echo server will echo back whatever is sent to it.
# We should be able to read the same byte back..
# After successfully reading, the byte value is available in the ReceivedInt property.
$treatAsUnsignedInt = 1;
$success = $sock->ReceiveByte($treatAsUnsignedInt);
if ($success == 0) {
    print $sock->lastErrorText() . "\r\n";
    exit;
}

# Let's look at the value of the byte received.  It should be 96.
print $sock->get_ReceivedInt() . "\r\n";

# The echo server also echoed the LF back.
$success = $sock->ReceiveByte($treatAsUnsignedInt);
# Assuming success..

# Should be decimal 10.
print $sock->get_ReceivedInt() . "\r\n";