Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Control number of running telnet sessions

by idsfa (Vicar)
on Oct 17, 2007 at 15:08 UTC ( [id://645463]=note: print w/replies, xml ) Need Help??


in reply to Control number of running telnet sessions

If all you need to do is limit the number of simultaneous but otherwise identical connections, 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.

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 }

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://645463]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2024-03-29 06:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found