mmap_client.pl

#!/usr/bin/perl
use 5.16.1;
use strict;
use warnings;

use Digest::MD5 qw(md5_hex);
use File::Slurp qw(read_file);
use File::Map qw(map_file);
use Tag::DeCoder;
use AnyEvent;

my $pthMapFile = read_file('/tmp/mmaped_file.pth');
say "Using map file $pthMapFile";

map_file my $strMap, $pthMapFile;

my $cv = AnyEvent->condvar;
my $aeh = AnyEvent->timer('after'=>0, 'interval' => 1, 'cb'=>sub {
    my $lbData = unpack('V', substr($strMap, 0, 4));
    my $strData = substr($strMap, 4, $lbData);
    say join("\t" => scalar(localtime), md5_hex($strData), scalar(keys decodeByTag($strData)));
});
$cv->recv;