Perl
Perl
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.
Background. A timeoutMs of 0 performs a nonblocking poll. With a socket set, this monitors many connections at once for readability.
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;
}
# 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.
$ready = $socket->SelectForReading(5000);
if ($ready < 0) {
print $socket->lastErrorText() . "\r\n";
exit;
}
if ($ready != 1) {
print "No data became available before the timeout." . "\r\n";
exit;
}
print "The socket has data ready to read." . "\r\n";