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

perlthrtut

unlock() 関数がないことに注意してください。変数をロック解除する唯一の方法は、変数をスコープ外に出すことです。

そう、

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