28 lines
535 B
Perl
28 lines
535 B
Perl
use Thread;
|
|
|
|
$level = 0;
|
|
|
|
sub worker
|
|
{
|
|
my $num = shift;
|
|
my $i;
|
|
print "thread $num starting\n";
|
|
for ($i = 1; $i <= 20; $i++) {
|
|
print "thread $num iteration $i\n";
|
|
select(undef, undef, undef, rand(10)/100);
|
|
{
|
|
lock($lock);
|
|
warn "thread $num saw non-zero level = $level\n" if $level;
|
|
$level++;
|
|
print "thread $num has lock\n";
|
|
select(undef, undef, undef, rand(10)/100);
|
|
$level--;
|
|
}
|
|
print "thread $num released lock\n";
|
|
}
|
|
}
|
|
|
|
for ($t = 1; $t <= 5; $t++) {
|
|
new Thread \&worker, $t;
|
|
}
|