multithreading - 未定义的子程序 &main::unlock

Question

我写了这个：

use threads;

    lock($lock);
        cond_wait($full,$lock) while($threads == $max_thread);
        $threads++;
    unlock($lock);

运行此代码后，我收到错误：

Undefined subroutine &main::unlock called at ./pages.pl line 222, <FH> line 1.`

我该如何解决这个问题？

Answer 1

影响力

请注意，没有 unlock() 函数 - 解锁变量的唯一方法是允许它超出范围。

所以，

{
    lock($lock);
    cond_wait($full,$lock) while($threads == $max_thread);
    $threads++;
}