perl - worker MPM 下 mod_perl 中的进程内协调

我需要在 mod_perl 中做一些简单的时区计算。 DateTime 不是一个选项。我需要做的很容易通过设置 $ENV{TZ} 并使用 localtime 和 POSIX::mktime 来完成，但是在线程 MPM 下，我需要确保一次只有一个线程在破坏环境。 (我不关心本地时间的其他用途等)

如何使用互斥锁或其他锁定策略来序列化(在非编码意义上)对环境的访问？我看过的 docs 没有很好地解释我将如何为这种用途创建互斥锁。也许我只是不明白您通常如何创建互斥锁。

更新:是的，我知道需要使用 Env::C 来设置 TZ。

最佳答案

(重复我在 PerlMonks 所说的话......)

BEGIN {
    my $mutex;

    sub that {
        $mutex ||= APR::ThreadMutex->new( $r->pool() );
        $mutex->lock();

        $ENV{TZ}= ...;
        ...

        $mutex->unlock();
    }
}

但是，当然，除了一次性黑客之外，lock() 应该发生在 c'tor 中，而 unlock() 应该发生在 d'tor 中。

更新:请注意，在子例程中如何初始化 $mutex 存在竞争条件(两个线程几乎同时第一次调用 that())。您很可能希望在创建(额外的)线程之前初始化 $mutex，但我不清楚“worker”Apache MPM 的细节以及如何轻松完成。如果有一些代码“提前”运行，只需从那里调用 that() 就可以消除竞争。

这一切都暗示了一个更安全的 APR::ThreadMutex 接口(interface):

BEGIN {
    my $mutex;

    sub that {
        my $autoLock= APR::ThreadMutex->autoLock( \$mutex );
        ...
        # Mutex automatically released when $autoLock destroyed
    }
}

请注意，autoLock() 获得对 undef 的引用将导致它在初始化 $mutex 时使用互斥锁来防止竞争。

关于perl - worker MPM 下 mod_perl 中的进程内协调，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/124291/