perl中的临界区

Question

是否有可能在perl中进入临界区，在单线程中保存其他线程并进行一些计算？就像在.NET中：

lock(_syncRoot)
{
   // Single-threaded zone
}

Answer 1

是的，Perl有锁和信号量。有关详情和示例，请参阅the documentation on threads。

Perl版本的代码：

{
    lock($_syncRoot);
    # Single-threaded zone
}