Next Welcome to my ~/bin 148

runN

        my %pid;
        while (@ARGV) {
          if (keys(%pid) < $opt{n}) {
            $pid{spawn(@cmd, shift @ARGV)} = 1;
          } else {
            delete $pid{wait()};
          }
        }
        1 while wait() >= 0;


Next Menu Copyright © 2005 M. J. Dominus