Re: Sockets and Fork, Please Help Me!!

Try taking a look at IO::Select, and modifying your design to do non-blocking io with the various file handles. Something like:

use strict;
use warnings;
use IO::Handle;
use IO::Select;
my $s = IO::Select->new();
...
$s->add(0); # STDIN
$s->add($telnet->fileno());
$s->add($telnet2->fileno());

while(1) {
  my @ready = $s->can_read();
  last unless @ready;
  foreach my $fd (@ready) {
    &handleTelnet1() if $telnet->fileno() == $fd;
    &handleTelnet2() if $telnet2->fileno() == $fd;
    &handleStdin()   if 0 == $fd;
  }
}
...
[download]

The above code does assume that your $telnet handles are IO::Handle objects.

Updated: robin pointed out some bugs in the example code relating to stdin. Thanks.

Comment on Re: Sockets and Fork, Please Help Me!! Download Code

Replies are listed 'Best First'.

Re: Re: Sockets and Fork, Please Help Me!!
by robin (Chaplain) on Dec 12, 2001 at 22:58 UTC

IO::Select

$s->add($telnet->fileno())

add

$s->add($telnet);

can_read

Secondly, if you know all your handles in advance you can just pass them to the IO::Select constructor rather than adding them one by one. And the can_read call can be incorporated directly into the loop condition. So maybe something like:

use strict;
use IO::Select;
my $s = IO::Select->new(\*STDIN, $telnet, $telnet2);

while (my @ready = $s->can_read()) {
    for my $ready (@ready) {
        if ($ready == \*STDIN) {
            handle_stdin();
        }
        else {
            handle_telnet($ready);
        }
    }
}
[download]

[reply]
[d/l]


The stupid question is the question not asked
	PerlMonks