18 lines
348 B
Perl
18 lines
348 B
Perl
|
use Thread;
|
||
|
|
|
||
|
|
use Thread::Specific qw(foo);
|
||
|
|
|
||
|
|
sub count {
|
||
|
|
my $tid = Thread->self->tid;
|
||
|
|
my Thread::Specific $tsd = Thread::Specific::data;
|
||
|
|
for (my $i = 0; $i < 5; $i++) {
|
||
|
|
$tsd->{foo} = $i;
|
||
|
|
print "thread $tid count: $tsd->{foo}\n";
|
||
|
|
select(undef, undef, undef, rand(2));
|
||
|
|
}
|
||
|
|
};
|
||
|
|
|
||
|
|
for(my $t = 0; $t < 5; $t++) {
|
||
|
|
new Thread \&count;
|
||
|
|
}
|