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

Question

我是perl语言的新手.

所以我写了这个:

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

perlthrtut

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

所以,

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