Wait for a Socket to Become Readable

See more Socket/SSL/TLS Examples

Demonstrates Socket.SelectForReading, which waits for read-ready activity on the socket, or on any contained socket when the object is a socket set. It returns 1 if ready, 0 on timeout, or -1 on error.

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

# Wait up to 5 seconds for read-ready activity on the socket (or, for a socket set, on any contained
# socket).  Returns 1 if ready, 0 on timeout, or -1 on error.
my $ready = $socket->SelectForReading(5000);
if ($ready < 0) {
    print $socket->LastErrorText, "\n";
    exit;
}

if ($ready != 1) {
    print "No data became available before the timeout.\n";
    exit;
}

print "The socket has data ready to read.\n";