crossroads

Git mirror of https://crossroads.e-tunity.com/
git clone git://git.finwo.net/app/crossroads
Log | Files | Refs | LICENSE

ntimes (472B)

      1 #!/usr/bin/perl
      2 
      3 # ntimes <command> - fork and run it
      4 
      5 die ("Usage: ntimes TIMES COMMAND\n",
      6      "Forks TIMES and each fork runs the COMMAND.\n") if ($#ARGV != 1);
      7 for my $i (1..$ARGV[0]) {
      8     my $pid = fork();
      9     die ("$0: cannot fork, $!\n") unless (defined($pid));
     10     if (!$pid) {
     11 	system($ARGV[1]);
     12 	exit();
     13     }
     14 }
     15 
     16 while (1) {
     17     my $kid = wait();
     18     last if ($kid < 1);
     19     print ("$0: Child $kid terminated\n");
     20 }
     21 print ("All forks have finished, done.\n");