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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $socket = Chilkat2::Socket->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.
my $boundPort = $socket->BindAndListenPortRange(5000, 5100, 25);
if ($boundPort < 0) {
    print $socket->LastErrorText, "\n";
    exit;
}

print 'Listening on port ', $boundPort, "\n";