in reply to multiple socket binding

It sounds like you've already solved the problem. Use IO::Socket and IO::Select. Read the config file. Open the sockets you need based on the values in the config file. Loop over a select call until you get a connection. Display "it", whatever "it" is.

The Synopsis section at the start of the documentation for both IO::Socket and IO::Select has the code you need. Parsing a config file depends on the nature of the file, but there are lots of modules for lots of types of files, and they all have Synopsis sections as well.

Replies are listed 'Best First'.
Re: Re: multiple socket binding
by 2bit4 (Initiate) on Feb 23, 2003 at 22:16 UTC
    Yeah, "it" would be the clients ip address, the config file is easy to load. My question is this: 
    for my $fh ($sel->can_read())
{
  if ($fh == $SERVER) { 
      print "client connected\n";
  }
  ...
}

    [download]
    the $SERVER would be the bound socket, how do i test this if their are multiple sockets? I created a hash table that held all the descriptors for the bound ports, but not sure how to get it to match, i did the same as above but instead of the $fh == $SERVER, i did: 
     for (keys(%hash)) {
   if ($fh == $_) { ... }
 }

    [download]
    Thanks, 2bit4

    Edit: Added <code> tags. larsen

[reply]
[d/l]
[select]

      If you are adding your client sockets to the IO::Select object, then when you call can_read, it will return an array of all the socket filehandles that are ready for reading, so when you call for my $fh ($sel->can_read()) { ... }, each time through the loop, $fh will contain the filehandle for a different client connection. The hash you created with all the descriptors is unnecessarry, the IO::Select object holds them for you.

[reply]
[d/l]
        yes i understand, but my prob is this script will bind to port 80, 110, 21, 25, etc, so i need to be able to listen on all of those ports and tell when a connection occurs and to which port
[reply]

In Section Seekers of Perl Wisdom