Another sketch for further inspiration:
#!/usr/bin/env perl # $Id: async.pl,v 1.8 2017/07/03 19:46:43 karl Exp karl $ use strict; use warnings; use threads; use MCE::Hobo; use feature qw(say); my %actions = ( nose => sub { my $hobo = mce_async { shift } "kumquat"; ( $hobo->pid, $hobo->join ); }, foo => sub { my $hobo = mce_async { shift } "bar"; ( $hobo->pid, $hobo->join ); }, ); say join " ", $actions{q(nose)}->(); say join " ", $actions{q(foo)}->(); __END__
Please note: if you say # use threads it forks.
This is not quite correct:
"...Only the shared-server is a thread when loading threads. Hobo workers are spawned via fork even when loading threads." marioroy
See also MCE::Hobo
Best regards, Karl
«The Crux of the Biscuit is the Apostrophe»
This signature has been bowdlerized because of a special request.
In reply to Re: defunct process are WAY beyond my experienc
by karlgoethebier
in thread defunct process are WAY beyond my experienc
by cristj1
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |