in reply to select() on a client and server socket

I'm a little fuzzy on exactly what you're trying to accomplish, so let me ramble a little...perhaps some of it may be relevant.

Is the goal to have a single connection to the other server and multiple connections to clients, i.e. a multiplexer? If so, I would think that you wouldn't want to create a new Server object when you get a new connection from a client. Instead, you should add the new client connection into the select object. You seem to be set up this way since you have for $socket (@ready){, but from your description, my guess is that you added $extsock to the select object elsewhere.

If you want multiple Server objects, you will need to give them control so that they can run their loop, most likely by calling fork or by calling the method that contains the code you listed. In that case, you would likely want to change the while to an if so that you don't block.

All that aside, assuming that you insert all clients into the @clients array, your "unknown data" should be from $extsock. This is easy enough to check: 

if ($socket == $extsock){
    print "Got data from extsock\n";
} else {
    print "Got data from an unknown handle ($socket)\n";
}

[download]
I've been doing a *lot* of this kind of stuff lately, so if you can describe your goals in a little more detail, I can probably give you some code to help you out.

Replies are listed 'Best First'.
Re: Re: select() on a client and server socket
by amir (Sexton) on Jul 11, 2001 at 20:49 UTC
    I am writing a chat/instant messaging server.

    Normal chat clients connect to the server to chat, so for them I need to create an object to sustain their state, info, etc. The problem is when I try to connect two servers together, so that one server connects to the other and they can pass chat messages across.

    Scenario: server1, server2

    The admins of server1 and server2 want to join their chat servers, and make it a chat network. Both servers are listening for connections from chat clients. server1 makes a socket connection to server2. This socket will be used to pass chat messages from one server to the other. In this case server1 has to listen on its server socket and the other socket it has created, whereas server2 is only listening on its server socket.

    In server1's scenario, I add the connection to the other server to select from inside a Server object.

    OK, I know now how to figure out where the data is coming from (server1's server socket or server1's connection socket to server2).

    I have this code: 

    my $select = IO::Select->new($listen);
while(1) {
my($r,$w) = IO::Select->select($select, $select, undef, 0);
my $socket;
for $socket (@$r) {
  ...
}
for $socket (@$w) {
  ...
}

    [download]
    AFAIK, the above code should block until it comes across a socket that is either readable or writeable.
[reply]
[d/l]

In Section Seekers of Perl Wisdom