31 lines
677 B
Perl
31 lines
677 B
Perl
|
use Thread qw(async);
|
||
|
|
use Thread::Semaphore;
|
||
|
|
|
||
|
|
my $sem = Thread::Semaphore->new(0);
|
||
|
|
|
||
|
|
$nthreads = 4;
|
||
|
|
|
||
|
|
for (my $i = 0; $i < $nthreads; $i++) {
|
||
|
|
async {
|
||
|
|
my $tid = Thread->self->tid;
|
||
|
|
print "thread $tid started...\n";
|
||
|
|
$sem->down;
|
||
|
|
print "thread $tid finishing\n";
|
||
|
|
};
|
||
|
|
}
|
||
|
|
|
||
|
|
print "main: started $nthreads threads\n";
|
||
|
|
sleep 2;
|
||
|
|
|
||
|
|
my @list = Thread->list;
|
||
|
|
printf "main: Thread->list returned %d threads\n", scalar(@list);
|
||
|
|
|
||
|
|
foreach my $t (@list) {
|
||
|
|
print "inspecting thread $t...\n";
|
||
|
|
print "...deref is $$t\n";
|
||
|
|
print "...flags = ", $t->flags, "\n";
|
||
|
|
print "...tid = ", $t->tid, "\n";
|
||
|
|
}
|
||
|
|
print "main thread telling workers to finish off...\n";
|
||
|
|
$sem->up($nthreads);
|