To display the location, I changed the code accordingly and run 1 time. Running serially seems fast enough. Basically, Perl completes in less than 1 second for 1 million keys from an Intel i7 Haswell chip running at 2.6 GHz. Nethertheless, this post was written to demonstrate workers sending data to the manager-process for STDOUT via MCE->print(...).

Results: run 1 and 2 times for 1 million keys: $max set to 1e6.

$ perl demo2.pl haukex 1
Found at 999999
Found at 1000000
duration (haukex):  0.336 seconds

$ perl demo2.pl karlary 1
Found at 999999
Found at 1000000
duration (karlary): 0.231 seconds

$ perl demo2.pl karlseq 1
Found at 999999
Found at 1000000
duration (karlseq): 0.122 seconds

[download]
$ perl demo2.pl haukex 2
Found at 999999
Found at 1000000
Found at 999999
Found at 1000000
duration (haukex):  0.665 seconds

$ perl demo2.pl karlary 2
Found at 999999
Found at 1000000
Found at 999999
Found at 1000000
duration (karlary): 0.477 seconds

$ perl demo2.pl karlseq 2
Found at 999999
Found at 1000000
Found at 999999
Found at 1000000
duration (karlseq): 0.253 seconds

[download]

Below, workers report the location.

...

{
    no strict 'refs';
    my $start = time;

    $func->() for 1 .. $count;

    printf "duration ($func): %0.03f seconds\n", time - $start;
}

...

sub haukex {
    # serial code
    for my $key ( 1 .. $max ) {
        print "Found at $key\n" if (
            $barcode_hash{$key}[2] eq $barcode_pair_35
        );
    }
    return;
}

sub karlary {
    # workers receive next array chunk
    mce_loop {
        my ( $mce, $chunk_ref, $chunk_id ) = @_;
        for my $key ( @$chunk_ref ) {
            MCE->print("Found at $key\n") if (
                $barcode_hash{$key}[2] eq $barcode_pair_35
            );
        }
    }
    1 .. $max;  # <-- for array 1 .. $max
    return;
}

sub karlseq {
    # workers receive next sequence 'begin' and 'end' boundaries
    mce_loop_s {
        my ( $mce, $chunk_ref, $chunk_id ) = @_;
        for my $key ( $chunk_ref->[0] .. $chunk_ref->[1] ) {
            MCE->print("Found at $key\n") if (
                $barcode_hash{$key}[2] eq $barcode_pair_35
            );
        }
    }
    1, $max;    # <-- for sequence 1, $max
    return;
}

[download]

In reply to Re^3: search for particular elements of hash with multiple values by marioroy
in thread search for particular elements of hash with multiple values by pmpmmpmp

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.