while (@dirs_to_ftp) {
  my $dir= shift @dirs_to_ftp;
  startthread($dir);
  while (threads->list(threads::running)>=2) {
      sleep 1;
  }
  foreach my $thr (threads->list(threads::joinable)) {
      $thr->join();
  }
}

foreach my $thr (threads->list()) {
    $thr->join();
}
[download]

hi, thanks for consulting the crystalball. I cant post the code ... but here is a better explanation.
I have a file that contain list of dirs to ftp.
I have this script to start one thread per dir.
But this affects the bandwidth, so wanted only two threads at a time.

Now that i already have a script that generates thread for each dir, I want to know how to modify script to limit only two threads at a time.
That is my script shud generate a two threads for ftp'ing 2 dirs at a time, and when that finishes generate two more for next 2 dirs... & so on

I have currently solved the problem by using a subroutine that creates just two threads at a time (& i pass two dirs to this sub).


Anyways, Thanks

---

http://techdiary-viki.blogspot.com/

LWP::Parallel

--MidLifeXis

How to manage a thread pool : pool.pl

hth,
PooLpi

In that case the code should look something like:

my $i=0;
while (@dirs_to_ftp) {
  my $dir= shift @dirs_to_ftp;
  startthread($dir);
  $i++;
  if ($i==2) {
    $i= $i- wait_for_thread_finish();
    $i--;
  }
}
while($i) { 
  $i= $i- wait_for_thread_finish(); $i--; 
}
[download]

Now if your real question was how to find out when a thread has finished, then you didn't provide enough information. We would at least have to know: What is your operation system ?
What modul or library are you using to start the threads ?

Thanks for that jethro, I am using threads module & working on Windows
http://techdiary-viki.blogspot.com/