comment on

You can certainly use mmap to share between unrelated processes. Create a file of the appropriate size, then mmap it from two processes; each will be able to see the other's changes.

Here's an example. mmshare writes lines from its STDIN to an mmap'd file, and mmlisten waits for that, then prints them. You have to be a bit careful how you write to the file; writing more than one machine word isn't atomic. So these programs divide the file up into segments, and use the first byte as a segment identifier which can be read and written to atomically.

mmshare:

#!/usr/bin/perl

use warnings;
use strict;

use Sys::Mmap;

use constant SEGMENT_SIZE => 256;
use constant MAX_SEGMENTS => 8192/SEGMENT_SIZE;

my $file = shift;
my $mmap;
if (! -f $file)
{
  die "'$file' is not a regular file\n";
}

open(F, "+< $file")
    or die "Couldn't open '$file': $!\n";

mmap($mmap, 0, PROT_READ|PROT_WRITE, MAP_SHARED, F)
    or die "mmap error: $!\n";

my $segment = 0;
while (<>)
{
  if (length > (SEGMENT_SIZE-1))
  {
    warn "Line too long\n";
    next;
  }
  $segment = ($segment + 1 ) % MAX_SEGMENTS;
  substr($mmap,1+SEGMENT_SIZE*$segment,1)=chr(length);
  substr($mmap,2+SEGMENT_SIZE*$segment,length)=$_;
  substr($mmap,0,1)=chr($segment);
}
[download]

mmlisten:

#!/usr/bin/perl

use warnings;
use strict;

use Sys::Mmap;

use constant SEGMENT_SIZE => 256;
use constant MAX_SEGMENTS => 8192/SEGMENT_SIZE;

my $file = shift;
my $mmap;
if (! -f $file)
{
  die "'$file' is not a regular file\n";
}

open(F, "< $file")
    or die "Couldn't open '$file': $!\n";

mmap($mmap, 0, PROT_READ, MAP_SHARED, F)
    or die "mmap error: $!\n";

my $last_seg = -1;
while (1)
{
  my $segment = ord(substr($mmap,0,1));
  next if ($segment == $last_seg);
  my $len = ord(substr($mmap,1+SEGMENT_SIZE*$segment,1));
  my $line = substr($mmap,2+SEGMENT_SIZE*$segment,$len);
  print $line;
  $last_seg = $segment;
}
[download]

To use them, first create an empty file to mmap:

dd if=/dev/zero bs=1 count=8192 of=mm
[download]

then run mmlisten mm in one window, and mmshare mm in another. As you type lines into mmshare, they should show up in the mmlisten window.

Update: To answer Aristotle's question, AFAIK there's no way to share an anonymous mmap region between unrelated processes.

To answer leriksen's question, it's actually sharing the memory backed by the file, just as in some OS's all real memory is backed by swap (Solaris, IIRC). Changes are available immediately, at least as immediately as with any other shared memory scheme. It does periodically write the data out to disk, but changes are visible before it's written out.

In reply to Re: Mmap question by sgifford
in thread Mmap question by zentara

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


go ahead... be a heretic
	PerlMonks