multithreading - perl 中的临界区

Question

是否可以在 perl 中进入临界区，以容纳其他线程并在单线程中进行一些计算？就像在 .NET 中一样：

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

Answer 1

是的，Perl 有锁和信号量。有关详细信息和示例，请参阅有关线程的文档。

您的代码的 Perl 版本：

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