Perl Requires Chilkat v11.0.0+

Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $listenSocket = Chilkat2::Socket->new;
my $connectedSocket = Chilkat2::Socket->new;

my $port = 5555;
my $backlog = 25;
my $success = $listenSocket->BindAndListen($port, $backlog);
if (!$success) {
    print $listenSocket->LastErrorText, "\n";
    exit;
}

# Accept next incoming connection
my $maxWaitMs = 200000;
$success = $listenSocket->AcceptNext($maxWaitMs, $connectedSocket);
if (!$success) {
    print $listenSocket->LastErrorText, "\n";
    exit;
}

# ...
# ...

$maxWaitMs = 20000;
$connectedSocket->Close($maxWaitMs);