# https://www.perlmonks.org/?node_id=11110379
# usage: perl search_db_inline_c_mce.pl > Outfile.txt

use strict;
use warnings;

# insert the Inline::C or Inline::CPP code here

use MCE;

my $mce = MCE->new(
    max_workers => MCE::Util::get_ncpu(),
    chunk_size  => 1,
    init_relay  => 1,

    user_begin => sub {
        open_db('db.kch#msiz=128m') or die "db.kch: open error\n";
    },

    user_end => sub {
        close_db();
    },

    user_func => sub {
        my $pep = $_; chomp $pep;
        my $ids = search_db($pep);

        # output serially, one worker at a time
        MCE::relay {
            print "$pep\t", join(',', @$ids), "\n" if @$ids;
        };
    }
);

$mce->process('peptides.txt');
$mce->shutdown;