#!/usr/bin/perl -w
#
# Test of shared arrays courtesy Terry Ewing <terry@intevo.com>
# See also eg/get
use lib ".";
use IPC::Shareable;
use strict;
my @shared;
my $ipch = tie @shared, 'IPC::Shareable',
"foco",
{ create => 1,
exclusive => 'no',
mode => 0666,
size => 1024*512
};
for (my $i = 1;; $i++) {
$ipch->shlock;
push(@shared, $i."-----".$i);
$ipch->shunlock;
sleep(2);
}