for ($y = 1; $y <= $thrc; $y++){
  $ary[$y] = threads->new(\&net1, $proto, $time);
  $ary[$y]->detach;
}

#or

@ary[1..150] = 0;
foreach $element (@ary) {
  $element = threads->new(\&net1, $proto, $time);
  $element = detach;
}

something short like or similar possible?

#this don“t work...
@ary[1..150] = threads->new(\&net1, $proto, $time);
@ary[1..150] = detach;


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to