Добавлено: 28 окт 2004, 13:41
Решил слепить тоже самое через Thread'ы.
Получается следующее:
Почему в конце $var всё равно принимает старое значение?
Получается следующее:
Код: Выделить всё
use strict;
use Thread qw(async yield);
my $var = 0;
sub child {
{
lock $var;
if ($var == 0) {
yield;
$var++;
print "var is $var\n";
}
}
}
my $t2 = new Thread \&child;
$t2->join;
print "var is $var\n";