GRID-Cluster

 view release on metacpan or  search on metacpan

lib/GRID/Cluster.pm  view on Meta::CPAN

173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
    ($proc[$counter], $pid[$counter]) = $m->open(shift @commands);
    $proc[$counter]->blocking(1);
 
    $map_id_machine{$counter} = $_;
    $readset->add($proc[$counter]);
    my $address = 0 + $proc[$counter];
    $id{$address} = $counter;
 
    $counter++;
 
    # See if all workers are busy, if so wait for one to finish
    last if (($counter > $lp) || ($counter >= $self->get_max_np()));
  }
  last if (($counter > $lp) || ($counter >= $self->get_max_np()));
}
 
my $count = 0;
my @ready;
my @result;
 
do {



( run in 0.329 second using v1.01-cache-2.11-cpan-8d75d55dd25 )