Is there a way to control processes in Perl (i.e., it actually replaces threads)?

Question

I have a multitasking application in perl for which I have to rely on several non-thread safe modules, so I used fork()ed processes with signals kill()as a message passing interface.

The problem is that the signal handlers are a bit messy (at least) and often end up with processes that die in non-directional states.

Is there a better way to do this?

Answer 1

forks.pm, " Perl fork()", ( Win32). "" , , ( , thread.pm -).

Answer 2

, , POE, Perl . , - , Perl.

:

• POE Matt Sergeant ( , , )
• POE ( )

, POE, .

Answer 3

You can always have a channel between the parent and child to send messages back and forth.

pipe my $reader, my $writer;
my $pid = fork();
if ( $pid == 0 ) {
    close $reader;
    ...
}
else {
    close $writer;
    my $msg_from_child = <$reader>;
    ....
}

Not a very convenient way of programming, but it should not be "unstable".

Answer 4

From perl 5.8 onwards, you should look at the main threading module. Take a look at http://metacpan.org/pod/threads

If you want to use modules that are not thread safe, you can usually load them on demand and import them inside the stream entry point.