"...2 sub's parallel in perl"

Consider something like this totally useless little sketch:

#!/usr/bin/env perl

use strict;
use warnings;
use threads;
use MCE::Hobo;
use Data::Dump;
use feature qw(say);
use constant AMOUNT => 0;

my $shared = MCE::Shared->hash();
my $nose   = MCE::Hobo->new( \&nose, "cuke" );
my $foo    = MCE::Hobo->new( \&foo, "bar" );

# $nose->join;
# $foo->join;

MCE::Hobo->wait_all();

my $hash_ref = $shared->export;

dd $hash_ref;

say $shared->{nose};
say $shared->{foo};

sub nose {
    sleep AMOUNT;
    $shared->set( nose => shift );
}

sub foo {
    sleep AMOUNT;
    $shared->set( foo => shift );
}

__END__
[download]

Best regards, Karl

Hi there, I guess the real question is different from the one posted here. What is the actual problem you try to solve?

Brief CPAN search reveals for example: Parallel::ForkManager, MCE, Parallel::Boss, Parallel::Batch

Also, there is a plethora of nodes concerning forks and threads. For example Fork and wait question

Simples:

#!perl -slw
use strict;
use threads;

sub one {
    select('','','',rand(0.01)), print 'one' while 1;
}

sub two {
    select('','','',rand(0.01)), print 'two' while 2;
}

async \&one;
two;
[download]

Doing something useful with it requires a little more thought.

See also Threads From Hell.

Hello Anonymous Monk,

In reply to your merged thread Running 2 different subs simultaneously. I am not sure exactly why the replies of the fellow Monks did not cover your question but maybe the use of Parallel::Simple a really simple module in parallel processes will help you to understand that your question is answered already.

Sample of code:

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Parallel::Simple qw(prun);

sub myFooSub {
    say "$$ foo 'clear bgp'";
}

sub myBarSub {
    say "$$ bar 'clear ospf'";
}

# style 2: named code blocks (like the Benchmark module)
prun(
    foo => \&myFooSub,
    bar => \&myBarSub,
    ) or die( Parallel::Simple::errplus()
);

__END__

$ perl test.pl
21120 foo 'clear bgp'
21121 bar 'clear ospf'
[download]

Hope this helps, BR.

Sorry, i posted this thread earlier with the Title " Parallel trigger of different sub". I was not specific there. Let me be more specific in this thread. My customer wants to run 2 different subs together.

just for example. Sub A does "clear bgp" and Sub B does "clear ospf " and he don't want to add all the steps in Sub B to Sub A (and run only Sub A). Both should be different entities . But, he wants to execute both "clear bgp" and "clear ospf" at the same time (not one after the other, should be parallel). This is just an example

"...not one after the other, should be parallel..."

Try to add say MCE::Hobo->pid(); to the subs and say $$; say for MCE::Hobo->list_running(); say MCE::Hobo->pending(); to main in the example i provided and watch the flow. Also increase the constant AMOUNT and watch what happens in what ever "task manager" you use. You may also say # use threads; and see what happens.

Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help