开发者

Can I use POSIX signals in my Perl program to create event-driven programming?

Is there any POSIX signals that I could utilize in my Perl program to create event-driven programming? Currently, I have multi-process program that is able to cross communicate but my parent thread is only able to listen to listen at one child at a time.

foreach (@proc) {
  sysread(${$_}{'read'}, my $line, 100); #problem here
  chomp($line);
  print "Parent hears: $line\n";
}

The problem is that the parent sits in a continual wait state until it receives it a signal from the first child before it can continue on. I am relying on 'pipe' for my intercommunication.

My current solution is very similar to: How can I use `pipe` to facilitate interprocess communication in Perl?

If possible I would like to rely on a $SIG{...} event or any non-CPAN solution.

Update:开发者_运维问答

As Jonathan Leffler mentioned, kill can be used to send a signal:

kill USR1 => $$; # send myself a SIGUSR1

My solution will be to send a USR1 signal to my child process. This event tells the parent to listen to the particular child.

child:

kill USR1 => $parentPID if($customEvent);
syswrite($parentPipe, $msg, $buffer);
#select $parentPipe; print $parentPipe $msg;

parent:

$SIG{USR1} = {
   #get child pid?
   sysread($array[$pid]{'childPipe'}, $msg, $buffer);   
};
  1. But how do I get my the source/child pid that signaled the parent? Have the child Identify itself in its message.
  2. What happens if two children signal USR1 at the same time?

Update 2: Solution

I went with a select that utilized a vector approach for non-blocking IO. For those that come across this thread check out: Perl Cookbook: 7.22. Reading from Many Filehandles Without Blocking as it covers both the vector way and the IO::Select module. I understand the IO::Select module would have been more elegant, but I was more interested in learning new mechanics of Perl. Thank you everyone for your help.

Exert:

$rin = '';
# repeat next line for all filehandles to poll
vec($rin, fileno(FH1), 1) = 1;
vec($rin, fileno(FH2), 1) = 1;
vec($rin, fileno(FH3), 1) = 1;

$nfound = select($rout=$rin, undef, undef, 0);
if ($nfound) {
  # input waiting on one or more of those 3 filehandles
  if (vec($rout,fileno(FH1),1)) { 
      # do something with FH1
  }
  if (vec($rout,fileno(FH2),1)) {
      # do something with FH2
  }
  if (vec($rout,fileno(FH3),1)) {
      # do something with FH3
  }
}


If you want to do event-driven programming, take a look at one of the CPAN event modules, such as POE, Coro, or AnyEvent before you invent your own thing.

Update for 2020

I'm doing this with Mojo::EventEmitter, which I cover very briefly in my book Mojo Web Clients.


You can use select to monitor communications channels (note: if you are on Win32 select can only be used on a socket).

So you can use code like this:

use IO::Select;
use IO::Handle;

...

$_->blocking(0) for @handles;

while( 1 ) {
    my $s = IO::Select->new( @handles );

    for my $h ( $s->can_read( 1 ) ) {

        my $data = read_handle($h);
        process_handle_data( $data );
    }

}

sub read_handle {
    my $h = shift;

    my $got = '';

    1 while read( $h, $got, 1024, length $got );

    return $got;
}

Take a look at the UDP example in perlipc. It uses the select built-in. I prefer the core IO::Select module to the select built-in, it's much easier to read.

Update: You really should consider using an event framework like POE, Event or Coro. There's a pretty good list of options in this perlmonks thread. Don't fear CPAN.


To answer the direct question, SIGUSR1 and SIGUSR2 are intended for 'user-defined' purposes - so you could use them.

You might be better off looking at a pre-existing system, though.

0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜