in reply to Fork and pipe

You may want to have a look at the built-in Tk mechanisms to handle I/O within the Gui event loop.

This would allow the incoming sockets to be dealt with without forking. See:

Update The docs do mention some unsavory behavior on Win32...bah. Sorry. I have little Win32 experience or I wouldn't have suggested it.

Replies are listed 'Best First'.
Re: Re: Fork and pipe
by gri6507 (Deacon) on Aug 30, 2002 at 19:58 UTC
    The following code still seems unresponsive (can't click on button, and label is not refreshed). This must be a windows thing.

    use Tk;
use IO::Socket;
use strict;

my $sock;
my $port = 7076;
my $time = 60;

my $mw = MainWindow->new;
my $button = $mw->Button(-text=>"click",
             -command=>sub{exit;})->place(-x=>0,-y=>0);
my $l = $mw->Label(-text=>"$time")->place(-x=>0,-y=>50);

$mw->update;
$sock = new IO::Socket::INET (
                  LocalHost => 'localhost',
                  LocalPort => $port,
                  Proto => 'tcp',
                  Listen => 1,
                  Reuse => 1,
                  #Timeout => 0.1,
                 );
die "Could not create socket: $!\n" unless $sock;
$mw->fileevent($sock,'readable',[\&readit]);
$mw->repeat(100,sub{$l->configure(-text=>$time--);$mw->update;});
MainLoop;

sub readit{
  my $new_sock = $sock->accept();
  my $in = <$new_sock>;
  print "received $in\n";
}

    [download]
[reply]
[d/l]
Re: Re: Fork and pipe
by gri6507 (Deacon) on Aug 30, 2002 at 17:38 UTC
    Looking at the documentation, Tk::fileevent would be excellent in my case. However, I cannot get it to work in a noneblocking manner. The execution seems to stop while processing the $mainwindow->fileevent($socket,'readable',[\&some_sub]); line. Have you seen an example with a socket read fileevent callback? (that works on Windows?). Thanks
[reply]
[d/l]
      I must retract this statement. The blocking was happening NOT a the fileevent line, but the line just above that, $socket->accept(); (duhhh). I need a break :-)
[reply]
[d/l]

In Section Seekers of Perl Wisdom