Perl

Bind and Listen on an Available Port in a Range

Demonstrates Socket.BindAndListenPortRange, which searches an inclusive port range for an available TCP port, binds it, and begins listening. It returns the selected port, or -1 on failure.

Background. This is useful when any of several ports is acceptable and the application needs to discover which one was bound.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

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

#  Search the inclusive port range for an available TCP port, bind it, and begin listening.  The
#  method returns the selected port, or -1 when no port can be bound.
$boundPort = $socket->BindAndListenPortRange(5000,5100,25);
if ($boundPort < 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

print "Listening on port " . $boundPort . "\r\n";