use strict;
use warnings;
use feature 'say';
use MCE::Hobo;
use MCE::Shared;
# Passing a file ref without IO::FDPass will work for \*STDIN,
# \*STDOUT, \*STDERR, and \*main::DATA only. Otherwise, providing
# the actual path is preferred (i.e. "/path/to/file").
mce_open my $out, '>>', \*STDOUT or die 'open failed: $!';
mce_open my $err, '>>', \*STDERR or die 'open failed: $!';
printf $out "shared fileno(\$out) is %d\n", fileno($out);
printf $out "shared fileno(\$err) is %d\n", fileno($err);
if ($^O ne 'MSWin32') {
mce_open my $log, '>>', '/dev/null' or die 'open failed: $!';
say $log "Hello, there!"; # sent to null
}
# The shared-handles work with threads, MCE::Hobo, MCE::Child,
# Parallel::ForkManager, and other parallel modules on CPAN.
# Note: There is no reason to choose MCE::Child over MCE::Hobo
# if already involving the shared-manager.
sub foo {
my ($id) = @_;
say $out "Hello, from pid $$";
}
MCE::Hobo->create('foo', $_) for 1..4;
MCE::Hobo->wait_all;
Output:
shared fileno($out) is 1
shared fileno($err) is 2
Hello, from pid 4651
Hello, from pid 4652
Hello, from pid 4653
Hello, from pid 4654
See also:
https://metacpan.org/pod/MCE::Shared#DBM-SHARING
https://metacpan.org/pod/MCE::Shared#LOGGER-DEMONSTRATION
Regards, Mario |