Many thanks for your response - let me take this by the numbers:

1,2,3) It was actually a typo, caused by me editing out superfluous code/comments/debugs, and a manual typing error. That line should have been:

  $openStreamsSock{$streamRequest++} = $sock->accept();

[download]

$streamRequest is just stream counter. New client connection sockets are added to the hash, with the $streamRequest the unique key.

4) Thanks for the coding economy!

5) You're right, I wasn't depopulating $fin (now $rin, to match standard), but at the top of the loop I reinitialized $fin and then set it up again by adding the listening socket and all currently open sockets. That should have taken care of initializing it correctly each time I get to the select.

Here's the updated code, adding in checking EBITS:

      while (1)
      {
        # Set up bit vectors for polling
        my $rin = '';
        my $ein = '';
        my $rout;
        my $eout;
        vec ($rin,  fileno ($sock)         , 1) = 1;
        vec ($ein,  fileno ($sock)         , 1) = 1;
        foreach my $streamID (keys %openStreamsSock)
        {
          vec ($fin,  fileno($openStreamsSock{$streamID})   , 1) = 1;
          vec ($ein,  fileno($openStreamsSock{$streamID})   , 1) = 1;
        }

        # Wait for incoming message
        my $nfound = select ($rout=$rin, undef, $eout=$ein, 5);
        if ($nfound) 
        {
          # Check client streams, close any in error
          foreach my $streamID (keys %openStreamsSock)
          {
            if (vec($eout, fileno($openStreamsSock{$streamID}),1))
            {
              close ($openStreamsSock{$streamID});
              delete ($openStreamsSock{$streamID});
            }
          }

          if (vec($rout, fileno($sock),1))
          {
            $openStreamsSock{$streamRequest++} = $sock->accept();
          }
          else
          {
            foreach my $streamID (keys %openStreamsSock)
            {
              if (vec($rout, fileno($openStreamsSock{$streamID}),1))
              {
                # read data off the socket; not a message here, just r
+aw data
                $msgSize = sysread ($openStreamsSock{$streamID},
                                    $msgReceived, 1048576);

                if (defined ($msgSize) && ($msgSize > 0))
                {
                  writeStreamData ($streamID, $msgReceived);
                }
                else
                {
                  # $msgSize being 0 indicates end of stream, or
                  # $msgSize being undef indicates error, so close
                  close ($openStreamsSock{$streamID});
                  delete ($openStreamsSock{$streamID});
                }
              }
            }
          }
        }
        else
        {
          print "$0: Normal timeout of select...\n";
        }
      }

[download]

I'll have to look at your example a bit - it looks like you're using some different constructs. Thanks again!

In reply to Re^2: socket select hangs after client restarts by planetjeff
in thread socket select hangs after client restarts by planetjeff

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.