note
idsfa
<p>If all you need to do is limit the number of simultaneous but otherwise identical connections, [mod://Parallel::ForkManager] should do the trick. You might have to add a little more logic if you need to use a different target port for each connection, but that's just a pop/push stack.</p>
<code>
my @portlist = qw/10001 10002 10003 10004/;
use Parallel::ForkManager;
$pm = Parallel::ForkManager->new(scalar @portlist);
foreach my $target (@targets) {
my $pid = $pm->start and next;
my $port = pop @portlist;
system("telnet $target $port");
push @portlist, $port;
$pm->finish; # Terminates the child process
}
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-195379">
<hr/>
<I>The intelligent reader will judge for himself. Without examining the facts fully and fairly, there is no way of knowing whether vox populi is really vox dei, or merely vox asinorum. — Cyrus H. Gordon</I>
</div></div>
645412
645412