Perl

TCP Socket Send Byte and Receive Byte

Demonstrates the Chilkat Socket ReceiveByte and SendByte method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

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

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

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

# Wait a max of 2 seconds for a response..
$sock->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.
my $treatAsUnsignedInt = 1;
$success = $sock->ReceiveByte($treatAsUnsignedInt);
if (!$success) {
    print $sock->LastErrorText, "\n";
    exit;
}

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

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

# Should be decimal 10.
print $sock->ReceivedInt, "\n";