Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

TCP Server hangs with multiple client connections

by rmahin (Scribe)
on Aug 02, 2012 at 17:45 UTC ( #985084=perlquestion: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    $ref->{poolObj} = $clientPool;
    exit 1 if ($clientPool->startPool(baseThreads => 10, moduleName => "SE
    +RVER::Main", subName => "clientThreadPool", values => $ref));
  2. or download this
    # Open Server Socket
    my $sock = IO::Socket::INET->new(Proto => 'tcp',
  3. or download this
            my $fd = @$work[0];
            our $clientaddr = @$work[1];
            # Get the password sent by client
            my $clientpass = <$fh>;    
  4. or download this
            # create and add socket file handle so it can be checked withi
    +n the while loop
            my $select = IO::Select->new();
  5. or download this
        # execute the command and save results in a file handle to reduce 
    +memory usage
        if (($head =~ /.+/) && ($tail =~ /.+/)) {
            close ($fh);

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://985084]
Front-paged by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (8)
As of 2015-11-28 11:53 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (741 votes), past polls