可以用于多种perl的编程环境,让程序并行
#!/usr/bin/perl -w
#
use strict;
use warnings;
use threads;
my $j=0;
my $thread;
while(){
while(scalar (threads -> list())<4){
$j++;
threads -> create(\&程序,参数...);
}
for $thread(threads -> list(threads::all)){
if ($thread -> is_joinable()){
$thread -> join();
}
}
}
sub 自己的程序{
......
}
参考的网址: 1、Perl 中的线程 2、Perl多线程 3、perldoc:threads