代码如下
#!/usr/bin/env perl
use strict;
use threads;
use Thread::Semaphore;
my $trait = $ARGV[0];
my $NumOfTrait = 0;
my $thread;
my $max_cpu = 28;
my $semaphore = new Thread::Semaphore($max_cpu);
my
代码如下
#!/usr/bin/env perl
use strict;
use threads;
use Thread::Semaphore;
my $trait = $ARGV[0];
my $NumOfTrait = 0;
my $thread;
my $max_cpu = 28;
my $semaphore = new Thread::Semaphore($max_cpu);
my