未定义的子程序 &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++;
}