我的程序是这样的:
use strict;
use threads;
use threads::shared;
my @thr;
for (my $i = 0; $i < $ARGV[0]; $i++) {
$thr[$i] = threads->create(\&Iteration, $i);
}
foreach (@thr) {
if ($_->is_running()) {
print "no";
}
else{
$_->join;
}
}
sub Iteration {
my $in = shift;
print "test$in\n";
}
但是当我用 $ARGV[0] 运行它时,比如 5,输出是
test2
test1
test0
test3
test4
Can't locate auto/threads/is_running.al in @INC
那么,如何使用 is_running() 语句来检查我的一个线程的状态?