IPC :: Shareable обмена

Question

Я общий хэш, используя следующие:

my $glue = 'data'; 
my %options = (
    create => 1, 
    exclusive => 0, 
    mode  => 0644, 
    destroy => 0, 
); 

tie %hash1, 'IPC::Shareable', $glue, { %options }; 

% hash1 объявлен как указано выше, в одном файле Perl, но он вызывается несколькими приложениями, каждое приложение изменяет его собственный индекс хэш:

Application1 --> $hash1{app1}="alpha"; 
Application2 --> $hash1{app2}="betta"; 
... 

при условии, что приложения могут или не могут работать одновременная установка, будет ли быть потеря данных, если Application1 и Application2 попытаться изменить хэш одновременно?

Answer 1

Вам необходимо использовать механизм блокировки. (Один предоставляется модулем.) В противном случае изменение любого значения хеша может привести к потере любого другого значения, измененного в одно и то же время. Следующая программа демонстрирует это довольно легко:

use strict; 
use warnings; 

use IPC::Shareable qw(); 

my $glue = 'data'; 
my %options = (
    create => 1, 
    exclusive => 0, 
    mode  => 0644, 
    destroy => 0, 
); 

my ($key) = @ARGV 
    or die("usage\n"); 

tie(my %h, 'IPC::Shareable', $glue, \%options); 

my $c; 
while (1) { 
    $h{$key} = ++$c; 

    my $got = $h{$key}; 
    die("$key was overwritten (got $got; expected $c)\n") 
     if $got != $c; 
} 

запустить ее в одной консоли:

perl a.pl foo 

Затем запустите его следующим образом в другой консоли:

perl a.pl bar