我应该如何在 Perl 中实现原子序列？

Question

我有以下要求：

1. 序列对于主机是唯一的（不需要共享增量）
2. 序列必须单调递增。
3. 该序列必须跨进程保持不变。
4. 在多个进程同时处理序列的情况下，递增序列必须是原子的。
5. 大多数情况下，文件会被更新，更新后会读取新值。但是，也应该可以在不更新的情况下读取当前值。

我可以将 Perl 代码拼凑起来，大致完成此操作，但我想要一个更优雅的解决方案。

Answer 1

将序列号存储在文件中，并使用 flock 确保只有一个进程可以访问它：

sub set {     # seed the sequence number file
    my ($file, $number) = @_;
    open my $fh, '>', $file;
    print $fh $number;
}  # implicit close

sub get {
    my $file = shift;
    my $incr = @_ ? shift : 1;   # get($f) is like get($f,1)
    open my $lock, '>>', "$file.lock";
    flock $lock, 2;
    open my $fh, '<', $file;
    my $seq = <$fh>;
    close $fh;
    set($file, $seq+$incr) if $incr;   # update sequence number
    close $lock;
    return $seq;
}

您可以将此调用为 get($file,0) 来检索序列号码而不改变它。

Answer 2

系统时间提供了一个单调递增的序列，它解决了（2）：

perl -MTime::HiRes=time -lwe "print time"

直到有人重置时钟......

持久性（3）和增量的原子性（4）似乎需要锁定数据库。我想到了 Berkeley DB。但您可能正在寻找更简单的东西，除非您已经在使用它。阅读而不更新（5）是没有问题的。单调递增序列 (2) 也不会。

我不确定“主机唯一”和“共享增量”是什么意思（1）。如果来自不同主机的序列元素可以具有相同的值，那么您可以将该方法乘以所有服务器。否则，您只能拥有一个必须可供其他人通过网络访问的序列。