#!/usr/bin/perl

use strict;
use warnings;

use MCE::Hobo;
use MCE::Shared;

my $mbnum = $ARGV[0] or die "usage: $0 mbnum\n";

my @ldif_files = qw(
    /path/to/file1.ldif.bz2
    /path/to/file2.ldif.bz2
    /path/to/file3.ldif.bz2
);

my $ret = MCE::Shared->array();

for my $idx (0 .. $#ldif_files) {
    my $file = $ldif_files[$idx];

    mce_async {
        local $/ = ""; $ret->set($idx, "");

        open my $fh, "-|", "/usr/bin/bzcat $file"
            or warn "open error ($file): $!";

        if (defined fileno($fh)) {
            while (<$fh>) {
                if (/uid=$mbnum/m) {
                    $ret->append($idx, $_);
                    last;
                }
            }
            close $fh;
        }
    };
}

$_->join for MCE::Hobo->list;   # or MCE::Hobo->waitall;

print join('', $ret->values) if $ret->len;